Ligne de code

Bonsoir ,

comment ecrire un code vba qui donne les instructions suivantes sur cette meme feuille ? :

je selectionne au hasard n'importe quelle cellule de la colonne G , en face de la cellule selectionnée dans la colonne B je dois avoir le premier numero qui est 118189 , ensuite en choisissant au hasard une seconde cellule de la colonne G , je dois avoir en face de cette meme cellule dans la colonne B le numero 118190, puis je choisi une 3 ieme cellule au hasard dans la colonne G celle ci doit generer le numero 118191 dans la colonne B et en face ...etc jusqu'au choix de la dernière cellule de la colonne G. ( le tout se faisant sur la meme feuille ).

Merci par avance pour votre aide précieuse ,

Salut le forum

Tu aurais du réussir avec les explications de l'autre ficelle que tu n'as pas mise en Résolue

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("G2:G10")) Is Nothing And Target.Count = 1 Then
  If Target.Offset(, -5) = "" Then
    If WorksheetFunction.Max(Range("B2:B10")) = 0 Then
      Target.Offset(, -5) = 118189
    Else
      Target.Offset(, -5) = WorksheetFunction.Max(Range("B2:B10")) + 1
    End If
  End If
End If
End Sub

Ou le code suivant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("G2:G10")) Is Nothing And Target.Count = 1 Then
  If Target.Offset(, -5) = "" Then
    Target.Offset(, -5) = IIf(WorksheetFunction.Max(Range("B2:B10")) = 0, _
         118189, WorksheetFunction.Max(Range("B2:B10")) + 1)
  End If
End If
End Sub

IIf, fonction

Renvoie l'un ou l'autre de deux arguments selon l'évaluation d'une expression.

IIf(expr, truepart, falsepart)

Mytå

Bonjour Rocket 4 , ou Flight ou je ne sais plus quoi,

Tu vas poser combien de fois la même question?

Il te faut combien de réponse pour arriver à comprendre?

Si tu ne sais pas adapter les réponses à ton fichier, tu joins ton fichier, mais arrête de multiplier les posts.

Ou alors c'est encore un sujet d'école et il y a une classe complète qui cherche des réponses, mais comme l'école n'est pas reprise!!

c'est plus que lassant

a+

Papou

Bonjour

Dabord merci , et puis en effet , le plus simplement possible j'aurai du poster le fichier à traiter , j'ai donc essayé de l'adapter

sans succès à partir d'un exemple assez proche , merci pour cette réponse en tout cas qui fera mon bonheur .