Deux macros dans une seule

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

phil92350

XLDnaute Nouveau
Bonjour à tous,

Voila, j'ai la macro suivantes qui fonctionne très bien

Sub EN_COURS()
Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
Set Ma_Plage = Worksheets("PROJET").Range("A5:U230") 'Compteur: A5 1° ligne U230 derniere ligne
nbr = nbr + 5 + Application.WorksheetFunction.CountA(Ma_Plage) ' rajout des 5° lignes commence l'opération à la 8 émé ligne ?

For i = 5 To nbr 'De 5° à 230° ligne
If Cells(i, 23) = 100 Then ' Controle de la cellule colonne V Si= à 100 je continue
Range("A" & i & ":S" & i).Copy ' copy la ligne des colonnes A à S
Sheets("EN COURS").Select ' sélectionne la feuille "EN COURS"
Range("A230").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues ' Va à la cellule A230 puis remonte à la dernire cellule vide - A
'pour commencer à la deuxieme colonne
Application.CutCopyMode = False ' copie que les valeurs
Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
Range("A" & i & ":S" & i).Select 'Sélectionne la ligne des colonnes A à s
Selection.ClearContents ' efface

End If
Next
End Sub


Mais à la suite de celle-ci j'aimerai faire le même calcul avec des variables différentes comme cela
If Cells(i, 22) et Sheets("ABANDON").Select

Donc voici ma macro au final :

Sub EN_COURS()
Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
Set Ma_Plage = Worksheets("PROJET").Range("A5:U230") 'Compteur: A5 1° ligne U230 derniere ligne
nbr = nbr + 5 + Application.WorksheetFunction.CountA(Ma_Plage) ' rajout des 5° lignes commence l'opération à la 8 émé ligne ?

For i = 5 To nbr 'De 5° à 230° ligne
If Cells(i, 23) = 100 Then ' Controle de la cellule colonne w Si= à 100 je continue
Range("A" & i & ":S" & i).Copy ' copy la ligne des colonnes A à S
Sheets("EN COURS").Select ' sélectionne la feuille "EN COURS"
Range("A230").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues ' Va à la cellule A230 puis remonte à la dernire cellule vide - A
'pour commencer à la deuxieme colonne
Application.CutCopyMode = False ' copie que les valeurs
Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
Range("A" & i & ":S" & i).Select 'Sélectionne la ligne des colonnes A à s
Selection.ClearContents ' efface

For i = 5 To nbr 'De 5° à 230° ligne
If Cells(i, 22) = 50 Then ' Controle de la cellule colonne V Si= à 50 je continue
Range("A" & i & ":S" & i).Copy ' copy la ligne des colonnes A à S
Sheets("ABANDON").Select ' sélectionne la feuille "EN COURS"
Range("A230").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues ' Va à la cellule A230 puis remonte à la dernire cellule vide - A
'pour commencer à la deuxieme colonne
Application.CutCopyMode = False ' copie que les valeurs
Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
Range("A" & i & ":S" & i).Select 'Sélectionne la ligne des colonnes A à s
Selection.ClearContents ' efface



End If
Next
End Sub

Et en exécutant ma macro, j'ai des erreurs de compilation et ce n'est pas de ma compétence malheureusement.

Merci à tous ceux qui voudront m'aider

Bonne soirée à tous

Phil
 
Trier par date Trier par votes
Re : Deux macros dans une seule

bonjour

tu as oublié un end if et un next
Sub EN_COURS()
Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
Set Ma_Plage = Worksheets("PROJET").Range("A5:U230") 'Compteur: A5 1° ligne U230 derniere ligne
nbr = nbr + 5 + Application.WorksheetFunction.CountA(Ma_Plage) ' rajout des 5° lignes commence l'opération à la 8 émé ligne ?

For i = 5 To nbr 'De 5° à 230° ligne
If Cells(i, 23) = 100 Then ' Controle de la cellule colonne w Si= à 100 je continue
Range("A" & i & ":S" & i).Copy ' copy la ligne des colonnes A à S
Sheets("EN COURS").Select ' sélectionne la feuille "EN COURS"
Range("A230").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues ' Va à la cellule A230 puis remonte à la dernire cellule vide - A
'pour commencer à la deuxieme colonne
Application.CutCopyMode = False ' copie que les valeurs
Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
Range("A" & i & ":S" & i).Select 'Sélectionne la ligne des colonnes A à s
Selection.ClearContents ' efface
End If
Next
For i = 5 To nbr 'De 5° à 230° ligne
If Cells(i, 22) = 50 Then ' Controle de la cellule colonne V Si= à 50 je continue
Range("A" & i & ":S" & i).Copy ' copy la ligne des colonnes A à S
Sheets("ABANDON").Select ' sélectionne la feuille "EN COURS"
Range("A230").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues ' Va à la cellule A230 puis remonte à la dernire cellule vide - A
'pour commencer à la deuxieme colonne
Application.CutCopyMode = False ' copie que les valeurs
Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
Range("A" & i & ":S" & i).Select 'Sélectionne la ligne des colonnes A à s
Selection.ClearContents ' efface
End If
Next
End Sub
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : Deux macros dans une seule

VB: 
Sub EN_COURS()
 Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
 Set Ma_Plage = Worksheets("PROJET").Range("A5:U230") 'Compteur: A5 1° ligne U230 derniere ligne
 nbr = nbr + 5 + Application.WorksheetFunction.CountA(Ma_Plage) ' rajout des 5° lignes commence l'opération à la 8 émé ligne ?

 
 For isheet = 1 To 2
 
  If isheet = 1 Then
     sheetRef = "EN COURS"
  Else
     sheetRef = "ABANDON"
  End If
 For i = 5 To nbr 'De 5° à 230° ligne
    If Cells(i, 23) = 100 Then ' Controle de la cellule colonne w Si= à 100 je continue
       'Range("A" & i & ":S" & i).Copy ' copy la ligne des colonnes A à S
       Range("A" & i & ":S" & i).Copy Destination:=Sheets(sheetRef).Range("A230").End(xlUp)(2) ' à moins qu'il n'y est des formules ou du formatage indésirable, cette méthode peut faire aussi
       'Sheets("EN COURS").Select ' sélectionne la feuille "EN COURS"
       'Range("A230").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues ' Va à la cellule A230 puis remonte à la dernire cellule vide - A
       'pour commencer à la deuxieme colonne
       Application.CutCopyMode = False ' copie que les valeurs
       'Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
       'Range("A" & i & ":S" & i).Select 'Sélectionne la ligne des colonnes A à s
       'Selection.ClearContents ' efface
       Range("A" & i & ":S" & i).ClearContents
    End If
 Next i
 Next isheet
 End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Deux macros dans une seule

Bonjour Phil,

Avec un bout de fichier ça irait mieux pour tester et comprendre ce que tu veux faire. Néanmoins, je crois que ton erreur de compilation est causée parce qu'il manque un "NEXT" juste avant ton 2e FOR et il te manque aussi un END IF.
Assure-toi toujours d'associer FOR avec NEXT et IF avec END IF
Autre truc, "indente" ton code de façon à ce qu'il soit plus lisible

VB: 
Sub EN_COURS()
 Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
 Set Ma_Plage = Worksheets("PROJET").Range("A5:U230") 'Compteur: A5 1° ligne U230 derniere ligne
 nbr = nbr + 5 + Application.WorksheetFunction.CountA(Ma_Plage) ' rajout des 5° lignes commence l'opération à la 8 émé ligne ?

For i = 5 To nbr 'De 5° à 230° ligne
    If Cells(i, 23) = 100 Then ' Controle de la cellule colonne w Si= à 100 je continue
        Range("A" & i & ":S" & i).Copy ' copy la ligne des colonnes A à S
        Sheets("EN COURS").Select ' sélectionne la feuille "EN COURS"
        Range("A230").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues ' Va à la cellule A230 puis remonte à la dernire cellule vide - A
        'pour commencer à la deuxieme colonne
        Application.CutCopyMode = False ' copie que les valeurs
        Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
        Range("A" & i & ":S" & i).Select 'Sélectionne la ligne des colonnes A à s
        Selection.ClearContents ' efface
    End If
Next

For i = 5 To nbr 'De 5° à 230° ligne
     If Cells(i, 22) = 50 Then ' Controle de la cellule colonne V Si= à 50 je continue
        Range("A" & i & ":S" & i).Copy ' copy la ligne des colonnes A à S
        Sheets("ABANDON").Select ' sélectionne la feuille "EN COURS"
        Range("A230").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues ' Va à la cellule A230 puis remonte à la dernire cellule vide - A
        'pour commencer à la deuxieme colonne
        Application.CutCopyMode = False ' copie que les valeurs
        Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
        Range("A" & i & ":S" & i).Select 'Sélectionne la ligne des colonnes A à s
        Selection.ClearContents ' efface
     End If
 Next
 End Sub

Dernier commentaire : tu peux éviter les SELECT pour rendre ton code plus rapide.
Exemple, remplace :

Code: 
        Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
        Range("A" & i & ":S" & i).Select 'Sélectionne la ligne des colonnes A à s
        Selection.ClearContents ' efface

par

Code: 
Sheets("PROJET").Range("A" & i & ":S" & i).ClearContents ' efface

A+
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

deudecos
  • Résolu(e)
XL pour MAC Code vba pour recherche sur une seule ligne
Réponses
4
Affichages
183
deudecos
deudecos
lynyrd
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
788
lynyrd
lynyrd
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
253
cathodique
cathodique
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
202
sylvanu
sylvanu
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
patricktoulon
Eric 888
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
132
Eric 888
Eric 888
R
  • Question Question
XL 2021 Recherche formule pour compléter une cellule a partir des données d'une autre feuille du classeur (16/03/2026)
2
Réponses
18
Affichages
601
laurent950
laurent950
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
459
juju91
J
pascal21
  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
245
pascal21
pascal21
F
Fdaga
Réponses
0
Affichages
191
Fdaga
F
F
Fdaga
Réponses
2
Affichages
136
dysorthographie
dysorthographie
C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
366
Piment
P
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
689
job75
job75
Electron24
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
484
Electron24
Electron24
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
572
Abi23
A
L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
394
patricktoulon
patricktoulon
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
528
TooFatBoy
TooFatBoy
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
422
MATLEA
M
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
588
sylvanu
sylvanu
W
  • Résolu(e)
XL 2016 Lignes vba "Saut de page" qui empêchent l'ouverture des Userform sur toutes les feuilles
Réponses
8
Affichages
120
Webperegrino
W
Retour