flight7218
XLDnaute Nouveau
Bonjour
j'ai le code vba suivant :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 20 And Target.Row < 56 Then
Cells(Target.Row, 3) = 111189 + Target.Row - 21
End If
End Sub
il permet de générer des numéros sur la colonne C en face de chaque cellule de la colonne B par clique sur une cellule de colonne B
je voudrai reprendre la meme instruction mais cette fois entre les colonnes E et F
j'ai ecris donc le code suivant sur un nouveau module vba de la meme feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 And Target.Row > 20 And Target.Row < 56 Then
Cells(Target.Row, 6) = 214189 + Target.Row - 21
End If
End Sub
rien ne se passe , je ne trouve pas mon erreur !
merci d'avance pour toute ceux ou celles qui pourrait m'aiguiller
j'ai le code vba suivant :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 20 And Target.Row < 56 Then
Cells(Target.Row, 3) = 111189 + Target.Row - 21
End If
End Sub
il permet de générer des numéros sur la colonne C en face de chaque cellule de la colonne B par clique sur une cellule de colonne B
je voudrai reprendre la meme instruction mais cette fois entre les colonnes E et F
j'ai ecris donc le code suivant sur un nouveau module vba de la meme feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 And Target.Row > 20 And Target.Row < 56 Then
Cells(Target.Row, 6) = 214189 + Target.Row - 21
End If
End Sub
rien ne se passe , je ne trouve pas mon erreur !
merci d'avance pour toute ceux ou celles qui pourrait m'aiguiller