Code sur lignes d'une plage définie avec condition

chris6999 · 21 Octobre 2017

Bonsoir le FORUM

J'ai besoin de positionner des formule sur des lignes appartenant à une plage nommée (dans mon projet j'ai plusieurs plages définies).
Le but selon valeur dans colonne A = code variable sur colonne D à F

Si A = DM_TX_RESPECT_ORIGINE : appliquer formule 1 sur les colonnes D E F .FormulaR1C1 = "=VLOOKUP(RC2,R22C2:R32C4,2,0)"
Si A =DM_TX_RESPECT_ORIGINE_2_LIGNES : appliquer formule 2 sur les colonnes D E F .FormulaR1C1 = "=R[-2]C&R[-1]C"
Si A =DM_total_TX_RESPECT : appliquer formule 3 sur les colonnes D E F .FormulaR1C1 = "=R[-8]C&R[-5]C&R[-1]C"

Je ne sais pas comment m'y prendre.
Pour vous donner un exemple je mets un fichier en PJ avec des formules "bidons"

Merci d'avance pour votre aide

chris6999 · 21 Octobre 2017

J'ai oublié de préciser que ma plage est nommée MAPLAGE

chris6999 · 22 Octobre 2017

Bonjour

Je pense avoir trouvé mon bonheur même si je ne définis pas ma plage au préalable.
Je vais encore creuser
Bonne journée

Dim i As Integer, DerniereLigne As Integer, Res As String
DerniereLigne = Range("A300").End(xlUp).Row
For i = DerniereLigne To 1 Step -1
'si valeur A "DM_TX_RESPECT_ORIGINE"
Res = Cells(i, 1).Value
If Res = "DM_TX_RESPECT_ORIGINE" Then
'Formule correspondante sur les lignes colonne D à F répète l'action sur 3 colonnes
Range(Cells(i, 4), Cells(i, "D").Resize(, 3)).FormulaR1C1 = "=VLOOKUP(RC2,R22C2:R32C4,2,0)"

End If
Next

Code sur lignes d'une plage définie avec condition

chris6999

XLDnaute Impliqué

Pièces jointes

chris6999

XLDnaute Impliqué

chris6999

XLDnaute Impliqué

Discussions similaires