Les " illettrés du numérique"

[scorpion3917]

tinquiète mamie n'y connais rien , son truc c'est Daxon et la Redoute dans les favoris (c'est plus facile )
mais dis donc ?????????? t'as l'air formé

Fais gaffe les mémés, elles savent lire les tutos sur les tricots au crochet. ..

L'historique c'est comme les couilles, ça se vide

[Lion blanc]

Fais gaffe les mémés, elles savent lire les tutos sur les tricots au crochet. ..

L'historique c'est comme les couilles, ça se vide

Sauf que les couilles sont plus agréablement vidées..

[scorpion3917]

L'historique c'est comme les couilles, ça se vide

Sauf que les couilles sont plus agréablement vidées..

Surtout pour un lion qui copule toutes les 2 minutes

[Lion blanc]

Sauf que les couilles sont plus agréablement vidées..

Surtout pour un lion qui copule toutes les 2 minutes

Je croyais les lions paresseux ? pas libidineux en tout cas..

[scorpion3917]

Surtout pour un lion qui copule toutes les 2 minutes

Je croyais les lions paresseux ? pas libidineux en tout cas..

pas au niveau de la libido en tout cas.
Attention on s éloigne du sujet là

[lepicard]

Je croyais les lions paresseux ? pas libidineux en tout cas..

pas au niveau de la libido en tout cas.
Attention on s éloigne du sujet là

bon alors retour au serieux

Code : Tout sélectionner

Sub Copier()
    Dim fin&, cel As Range, num$, rep
    Application.ScreenUpdating = False
    num = Feuil2.Cells(8, 3)
    Set cel = Feuil3.Cells.Find(num, , , xlWhole)
    If cel Is Nothing Then
1       fin = Feuil3.Range("A" & Rows.Count).End(3).Row + 2
        If fin < 4 Then fin = 2
        Feuil2.Range("A1:G53").Copy Feuil3.Cells(fin, 1)
        Feuil2.Range("A1:G53").Copy
        Feuil3.Cells(fin, 1).PasteSpecial Paste:=xlPasteColumnWidths
        Feuil3.Cells(fin, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        Feuil2.Cells(1, 1).Select
        Feuil2.Cells(11, 6) = ""
        MsgBox "Affaire " & Feuil2.Cells(8, 3) & " Copiée dans la feuille Autorisation!!", , "C'est Terminé": Exit Sub
    Else
        rep = MsgBox("Le Numéro" & num & " Existe déjà," & vbCrLf _
                     & "S'agit-il d'un additif?", vbCritical + vbYesNo, "Est-ce un Additif?")
        If rep = vbYes Then Feuil2.Cells(11, 6) = "Ajout Additif": GoTo 1
        If rep = vbNo Then
            rep = MsgBox("Le Numéro d'Affaire " & num & " Existe déjà," & vbCrLf _
                         & "S'agit-il d'un con?", vbCritical + vbYesNo, "Est-ce un con ?"
            If rep = vbYes Then Feuil2.Cells(11, 6) = "Ajout con": GoTo 1
            If rep = vbNo Then Exit Sub
        End If
    End If
End Sub

pour faire une liste de GJ par exemple

[lotus95]

pas au niveau de la libido en tout cas.
Attention on s éloigne du sujet là

bon alors retour au serieux

Code : Tout sélectionner

Sub Copier()
    Dim fin&, cel As Range, num$, rep
    Application.ScreenUpdating = False
    num = Feuil2.Cells(8, 3)
    Set cel = Feuil3.Cells.Find(num, , , xlWhole)
    If cel Is Nothing Then
1       fin = Feuil3.Range("A" & Rows.Count).End(3).Row + 2
        If fin < 4 Then fin = 2
        Feuil2.Range("A1:G53").Copy Feuil3.Cells(fin, 1)
        Feuil2.Range("A1:G53").Copy
        Feuil3.Cells(fin, 1).PasteSpecial Paste:=xlPasteColumnWidths
        Feuil3.Cells(fin, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        Feuil2.Cells(1, 1).Select
        Feuil2.Cells(11, 6) = ""
        MsgBox "Affaire " & Feuil2.Cells(8, 3) & " Copiée dans la feuille Autorisation!!", , "C'est Terminé": Exit Sub
    Else
        rep = MsgBox("Le Numéro" & num & " Existe déjà," & vbCrLf _
                     & "S'agit-il d'un additif?", vbCritical + vbYesNo, "Est-ce un Additif?")
        If rep = vbYes Then Feuil2.Cells(11, 6) = "Ajout Additif": GoTo 1
        If rep = vbNo Then
            rep = MsgBox("Le Numéro d'Affaire " & num & " Existe déjà," & vbCrLf _
                         [surligne]& "y a t-il un pilote dans l'avion ?[/surligne]", vbCritical + vbYesNo, [surligne]"va t-il dans le mur [/surligne]?"
            If rep = vbYes Then Feuil2.Cells(11, 6) = "Ajout con": GoTo 1
            If rep = vbNo Then Exit Sub
        End If
    End If
End Sub

pour faire une liste de GJ par exemple

pour avoir un diagnostic juste de la situation

[lepicard]

bon alors retour au serieux

Code : Tout sélectionner

Sub Copier()
    Dim fin&, cel As Range, num$, rep
    Application.ScreenUpdating = False
    num = Feuil2.Cells(8, 3)
    Set cel = Feuil3.Cells.Find(num, , , xlWhole)
    If cel Is Nothing Then
1       fin = Feuil3.Range("A" & Rows.Count).End(3).Row + 2
        If fin < 4 Then fin = 2
        Feuil2.Range("A1:G53").Copy Feuil3.Cells(fin, 1)
        Feuil2.Range("A1:G53").Copy
        Feuil3.Cells(fin, 1).PasteSpecial Paste:=xlPasteColumnWidths
        Feuil3.Cells(fin, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        Feuil2.Cells(1, 1).Select
        Feuil2.Cells(11, 6) = ""
        MsgBox "Affaire " & Feuil2.Cells(8, 3) & " Copiée dans la feuille Autorisation!!", , "C'est Terminé": Exit Sub
    Else
        rep = MsgBox("Le Numéro" & num & " Existe déjà," & vbCrLf _
                     & "S'agit-il d'un additif?", vbCritical + vbYesNo, "Est-ce un Additif?")
        If rep = vbYes Then Feuil2.Cells(11, 6) = "Ajout Additif": GoTo 1
        If rep = vbNo Then
            rep = MsgBox("Le Numéro d'Affaire " & num & " Existe déjà," & vbCrLf _
                         [surligne]& "y a t-il un pilote dans l'avion ?[/surligne]", vbCritical + vbYesNo, [surligne]"va t-il dans le mur [/surligne]?"
            If rep = vbYes Then Feuil2.Cells(11, 6) = "Ajout con": GoTo 1
            If rep = vbNo Then Exit Sub
        End If
    End If
End Sub

pour faire une liste de GJ par exemple

pour avoir un diagnostic juste de la situation

diagnostiquer quoi ??? les hopitaux psychiatriques sont surbookés

[oups]

c'est vachement ludique , y'a meme des films de boules qui permettent aux vieux (qui se sont formés) de pouvoir triquer dans leur couche

Ça c'est dangereux, ça, si le pépé regarde en douce et si la vieille à l'idée d'aller fouiller dans l'historique de la bécane...

De la l'interet d'un mamie "Rodriguesienne " des 2 noeils +

[lepicard]

Ça c'est dangereux, ça, si le pépé regarde en douce et si la vieille à l'idée d'aller fouiller dans l'historique de la bécane...

De la l'interet d'un mamie "Rodriguesienne " des 2 noeils +

Qu'est qu'elle doit etre chiante , c'est le meilleur remède contre l'amour ,
tu parles de Lotus ????????

[lotus95]

pour avoir un diagnostic juste de la situation

diagnostiquer quoi ??? les hopitaux psychiatriques sont surbookés

If rep = vbNo Then
rep = MsgBox("Le Numéro de scénario" & num & " Existe déjà," & vbCrLf _
& "y a t-il un pilote dans l'avion ?", vbCritical + vbYesNo, "va t-il dans le mur ?"

tu as de la chance que j'ai perdu en pratique, j'aurais pu en rajouter des kms ...

[Crapulax]

Je suis une bille en informatique..Si si...
Mais je remercie les forums d'exister,sans eux je n'aurai même pas "pris" internet et je ne me serai même pas acheter un ordinateur.

En plus concernant les forums je n'en ai fait que deux...Celui ou j'ai connu les proprios d'Interaldys et ce dernier...Avec c'est vrai quelques visites sur un troisième,il y a de cela quelques années.

C'est comme le portable..J'en ai un "par obligation" mais jamais il ne me viendrait à l'idée de dépenser de la tune là-dedans...Le mien ne fait même pas internet et m'a coûté 10 euros...
Avec l'assurance de ne jamais risquer me le faire voler(il faudrait déjà tenter de le faire) et sans aucune peur de le perdre ou de le casser.

[lepicard]

Je suis une bille en informatique..Si si...
Mais je remercie les forums d'exister,sans eux je n'aurai même pas "pris" internet et je ne me serai même pas acheter un ordinateur.

En plus concernant les forums je n'en ai fait que deux...Celui ou j'ai connu les proprios d'Interaldys et ce dernier...Avec c'est vrai quelques visites sur un troisième,il y a de cela quelques années.

C'est comme le portable..J'en ai un "par obligation" mais jamais il ne me viendrait à l'idée de dépenser de la tune là-dedans...Le mien ne fait même pas internet et m'a coûté 10 euros...
Avec l'assurance de ne jamais risquer me le faire voler(il faudrait déjà tenter de le faire) et sans aucune peur de le perdre ou de le casser.

En plus que le smart phone , dès qu'il y a un rayon de soleil ,on ne voit rien , franchement c'est naze ,et il ne faut pas avoir la tremblote ,ni des gros doigts

[Lion blanc]

Je suis une bille en informatique..Si si...
Mais je remercie les forums d'exister,sans eux je n'aurai même pas "pris" internet et je ne me serai même pas acheter un ordinateur.

En plus concernant les forums je n'en ai fait que deux...Celui ou j'ai connu les proprios d'Interaldys et ce dernier...Avec c'est vrai quelques visites sur un troisième,il y a de cela quelques années.

C'est comme le portable..J'en ai un "par obligation" mais jamais il ne me viendrait à l'idée de dépenser de la tune là-dedans...Le mien ne fait même pas internet et m'a coûté 10 euros...
Avec l'assurance de ne jamais risquer me le faire voler(il faudrait déjà tenter de le faire) et sans aucune peur de le perdre ou de le casser.

En plus que le smart phone , dès qu'il y a un rayon de soleil ,on ne voit rien , franchement c'est naze ,et il ne faut pas avoir la tremblote ,ni des gros doigts

Moi je navigue que sur smartphone, mais faut pas acheter une daube à 150 balles..

[lepicard]

En plus que le smart phone , dès qu'il y a un rayon de soleil ,on ne voit rien , franchement c'est naze ,et il ne faut pas avoir la tremblote ,ni des gros doigts

Moi je navigue que sur smartphone, mais faut pas acheter une daube à 150 balles..

ça doit faire tache dans ta mégane II à 300 balles
Arrete ,on voit rien ,c'est nul ,tout juste bon pour consulter