A voir également:
- Macro incomplète
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
2 réponses
Bonjour
Teste ceci
Avec End Sub à la fin au lieu de Ens Sub (le doigt à dévier)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C3:C1000")) Is Nothing Then 'C1000 à adapter
target.offset(0,1).ClearContents
End If
Ens Sub
Merci pour votre réponse rapide
J'ai essayé d'adapter par ceci mais cela ne fonctionne pas;
Je suis vraiment nul.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C3:C1000")) Is Nothing Then
Range(D3:D1000)target.offest'0,1).ClearContents
End If
End Sub
Je vais sûrement devoir prendre des cours de VBA.
J'ai trouvé mon erreur, d'abord je n'avais rien à modifier dans la chaîne de caractère mais simplement la fin.
Merci beaucoup pour votre dévouement,
Cordialement,
C'est mieux comme ceci:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C3:C1000")) Is Nothing Then
Target.Offset(0, 1).ClearContents
End If
End Sub
A bientôt !