Patrice2207
XLDnaute Nouveau
Bonjour
Géant la formule, mais quelle est t-elle si je veux faire la même chose pour plusieurs colonnes?
Par avance merci
Patrice
Envoyé par BOISGONTIER
Bonjour,
Les nombres entrés dans une cellule de la colonne A se cumulent:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
If [mémo] <> "" Then
Target = Target + [mémo]
End If
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34)
End If
End SubJB
Formation Excel VBA JB [/COLOR]
Bonjour
Géant la formule, mais quelle est t-elle si je veux faire la même chose pour plusieurs colonnes?
Par avance merci
Patrice
Géant la formule, mais quelle est t-elle si je veux faire la même chose pour plusieurs colonnes?
Par avance merci
Patrice
Envoyé par BOISGONTIER
Bonjour,
Les nombres entrés dans une cellule de la colonne A se cumulent:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
If [mémo] <> "" Then
Target = Target + [mémo]
End If
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34)
End If
End SubJB
Formation Excel VBA JB [/COLOR]
Bonjour
Géant la formule, mais quelle est t-elle si je veux faire la même chose pour plusieurs colonnes?
Par avance merci
Patrice