Comprendre un code VBA
Bonsoir
j'essaie de comprendre le code suivant , du moins en langage clair :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A" & Range("A65536").End(xlUp).Row)) Is Nothing And Target.Count = 1 Then
If Cells(Target.Row, Target.Column + 1) = "" Then
If WorksheetFunction.Max(Range("B1:B" & Range("A65536").End(xlUp).Row)) = 0 Then
Cells(Target.Row, Target.Column + 1) = 118000
Else
Cells(Target.Row, Target.Column + 1) = WorksheetFunction.Max(Range("B1:B" & Range("A65536").End(xlUp).Row)) + 1
End If
End If
End If
End Sub
Que représente "A1:A" & Range("A65536") et Range("B1:B" & Range("A65536") ?
et est ce que le +1 renvoi à une valeur de colonne dans l'expression :
If Not Intersect(Target, Range("A1:A" & Range("A65536").End(xlUp).Row)) Is Nothing And Target.Count = 1 Then
Parce que j'essaie de l'adapter à mon projet , sans résultat
Merci pour l'aide
Salut le forum
Un petit coup de F1 sur une instruction et tu as les informations.
Choix d'une plage allant de A1 à la dernière cellule remplie de la colonne A en partant du bas de la colonne
Range("A1:A" & Range("A65536").End(xlUp).Row))C'est la même chose que Target.Offset(0,1) on vérifie la à droite de celle sélectionner
Cells(Target.Row, Target.Column + 1)La sélection doit être dans la plage A1:Ax et ne contenir qu'une sélection.
If Not Intersect(Target, Range("A1:A" & Range("A65536").End(xlUp).Row)) Is Nothing And Target.Count = 1 ThenMytå