Macro incomplète
Fermé
Ptiloup226
Messages postés
11
Date d'inscription
vendredi 4 novembre 2022
Statut
Membre
Dernière intervention
11 septembre 2023
-
4 nov. 2022 à 10:47
Ptiloup226 Messages postés 11 Date d'inscription vendredi 4 novembre 2022 Statut Membre Dernière intervention 11 septembre 2023 - 4 nov. 2022 à 11:35
Ptiloup226 Messages postés 11 Date d'inscription vendredi 4 novembre 2022 Statut Membre Dernière intervention 11 septembre 2023 - 4 nov. 2022 à 11:35
A voir également:
- Macro incomplète
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro logiciel - Télécharger - Organisation
- Configuration incomplète en raison d'une connexion limitée - Forum Windows 10
2 réponses
M-12
Messages postés
1331
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
283
Modifié le 4 nov. 2022 à 11:02
Modifié le 4 nov. 2022 à 11:02
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
Ptiloup226
Messages postés
11
Date d'inscription
vendredi 4 novembre 2022
Statut
Membre
Dernière intervention
11 septembre 2023
4 nov. 2022 à 11:23
4 nov. 2022 à 11:23
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.
M-12
Messages postés
1331
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
283
4 nov. 2022 à 11:31
4 nov. 2022 à 11:31
Re,
Commence déjà par copier/coller ma macro ou vérifie ton écriture de ta macro
4 nov. 2022 à 11:35
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 !