Mettre une condition à l'exécution d'une macro
Résolu/Fermé
Bonjour,
J ai créé une macro qui ne doit s'exécuter que si une condition est remplie.
La condition : BV10=CJ10
Que faut-il ajouter an début de macro?
Merci
J ai créé une macro qui ne doit s'exécuter que si une condition est remplie.
La condition : BV10=CJ10
Que faut-il ajouter an début de macro?
Merci
A voir également:
- Mettre une condition à l'exécution d'une macro
- Excel cellule couleur si condition texte - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro word - Guide
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
1 réponse
f894009
Messages postés
17268
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 mars 2025
1 713
9 oct. 2015 à 15:02
9 oct. 2015 à 15:02
Bonjour,
Oui, question, comment se lance la macro ?????
Oui, question, comment se lance la macro ?????
14 oct. 2015 à 20:06
Absent je n ai pu consulter votre réponse jusqu'à présent.
Je suis sur Excel 2000.
Pour lancer la macro je clic sur un bouton ou je peux également faire "Outils - Macros - Exécuter "
J'espère que cela réponds à votre question.
15 oct. 2015 à 08:56
adaptez le nom de la feuille
16 oct. 2015 à 14:28
J 'ai complété la macro et quand je veux l'exécuter il s'affiche le message "Erreur de compilation - End If sans bloc If".
La macro se présente ainsi :
___________________________________________________________________________
Sub Subsanschangement159()
'
' Sans changement159 Macro
' Macro enregistrée le 14/10/2015 par Patrick
'
'If Worksheets("Associations 1").Range("BV10") = Worksheets("Associations 1").Range("CJ10") Then
Range("BM10:BZ3169").Select
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollRow = 27
Application.Left = 16.75
Application.Top = 8.5
ActiveWindow.SmallScroll Down:=2
Range("BM30:BZ3189").Select
ActiveSheet.Paste
Range("CA10:CN29").Select
Selection.Copy
Range("BM10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _ False, Transpose:=False
'
End IF
End Sub
___________________________________________________________________________
Ou y a t-il une erreur?
Merci
16 oct. 2015 à 15:09
cette ligne est en commentaire
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16 oct. 2015 à 16:39
Je viens d'apprendre a faire des macros, mais je ne connais pas encore VBA.
Concrètement que dois je modifier dans la macro?
Merci