Macro pour appliquer DEUX formules sur les lignes actives d'une feuille

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 !

MARSEILLE13150

XLDnaute Nouveau
Bonjour,

Dans la ligne n°3, colonne Q, j'ai mis une formule pour que US apparaisse si colonne P remplie.
Dans la ligne n°4, colonne Q, j'ai mis une formule pour que FR apparaisse si colonne P remplie.
Et je souhaite répéter ces deux formules en alternance jusqu'en bas de la feuille tant que les lignes sont remplie.

Les formules sont les suivantes :

Dans la ligne n°3, colonne Q : =SI(P3<>"";"US";"")
Dans la ligne n°4, colonne Q : =SI(P4<>"";"FR";"")

Je souhaiterai qu'une macro applique cette logique jusqu'en bas de la feuille...

J'ai tenté cela (avec l'enregistreur) :

Sub Macro12()
'
' Macro12 Macro
'
' Touche de raccourci du clavier: Ctrl+l
'
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
Range("Q3").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]<>"""",""US"","""")"
Range("Q4").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]<>"""",""FR"","""")"
Range("Q5").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]<>"""",""US"","""")"
Range("Q6").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]<>"""",""FR"","""")"
Range("Q7").Select
End Sub

Merci beaucoup pour votre aide.

Jean-Michel
 
Re : Macro pour appliquer DEUX formules sur les lignes actives d'une feuille

Bonjour,

essaye peut être ceci :
Code:
Range("Q3:Q" & Range("P65536").End(xlUp).Row).FormulaR1C1 = _
        "=IF(RC[-1]<>"""",IF(MOD(ROW(),2)=0,""FR"",""US""),"""")"
bonne journée
@+
 
- 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

Réponses
7
Affichages
163
  • Question Question
Microsoft 365 Formules
Réponses
2
Affichages
693
Réponses
4
Affichages
880
Réponses
2
Affichages
1 K
Retour