Copier avec condition

[Cazinos]

Bonsoir le forum

Voici une macro qui m'a été donnée sur ce site, je l'ai adapté à d'autres besoins mais je ne sais pas comment faire pour que la macro copie la formule uniquement si la cellule de la colonne "A" commence par T

merci

Sub copierformules()

Sheets("BX").Select

Range("A2:A" & [A65000].End(xlUp).Row).SpecialCells(xlCellTypeConstants, 23).Offset(, 11).Formula = [Nom_prénom].Formula

Range("A2:A" & [A65000].End(xlUp).Row).SpecialCells(xlCellTypeConstants, 23).Offset(, 12).Formula = [Matricule].Formula

End Sub

 

[Cousinhub]

Re : Copier avec condition

Bonsoir,

Personnellement, je pense qu'il vaut mieux écrire la formule en Dur, dans le code, du style :

For Each cel In Range("A2:A" & [A65000].End(xlUp).Row).SpecialCells(xlCellTypeConstants, 23)
    cel.Offset(, 11).FormulaR1C1 = IIf(Left(cel, 1) = "T", "=RC[-2]+RC[-1]", "")
    cel.Offset(, 12).FormulaR1C1 = IIf(Left(cel, 1) = "T", "=RC[-2]*RC[-1]", "")
Next cel

 

[Cazinos]

Re : Copier avec condition

merci mais ca fonctionne pas comme ça ou bien j'oublie un quelque chose

 

[Cousinhub]

Re : Copier avec condition

Re-,

ou bien j'oublie un quelque chose

Pour être sûr, joins le code (uniquement le code), pour voir si tu n'as rien oublié..

 

[Cazinos]

Re : Copier avec condition

Sub CopierNomPrénomMatricule()

Sheets("Bx").Select

For Each cel In Range("A2:A" & [A65000].End(xlUp).Row).SpecialCells(xlCellTypeConstants, 23)

cel.Offset(, 11).FormulaR1C1 = IIf(Left(cel, 1) = "T", "=RC[-2]+RC[-1]", "")
cel.Offset(, 12).FormulaR1C1 = IIf(Left(cel, 1) = "T", "=RC[-2]*RC[-1]", "")

Next cel

End Sub

 

[Cazinos]

Re : Copier avec condition

pour info

Mes formules sont nomées "Nom_prénom" pour la première ligne
et "Matricule" pour la deuxième ligne

merci

 

[Cousinhub]

Re : Copier avec condition

Re-,
les formules sont-elles dans la feuille "Bx"?
car la ligne de code :

Sheets("Bx").Select

est-elle indispensable?

sans le Select :

With Sheets("Bx")
For Each cel In .Range("A2:A" & .[A65000].End(xlUp).Row).SpecialCells(xlCellTypeConstants, 23)
    cel.Offset(, 11).FormulaR1C1 = IIf(Left(cel, 1) = "T", "=RC[-2]+RC[-1]", "")
    cel.Offset(, 12).FormulaR1C1 = IIf(Left(cel, 1) = "T", "=RC[-2]*RC[-1]", "")
Next cel
End With

 

[Cazinos]

Re : Copier avec condition

non les formules ne sont pas dans la même feuille elles se trouvent dans la feuille BDD TEXTE PAYE cellule L2 et M2

merci

 

[Cousinhub]

Re : Copier avec condition

Re-,
copie une des formules dans une cellule de destination, en enregistrant via l'enregistreur de macro, et tu auras ta formule.
reste ensuite à la mettre dans le code

 

[Cazinos]

Re : Copier avec condition

ca ma donne ça

Sub Macro3()
Range("L2").Select
Selection.Copy
Sheets("BX").Select
Range("L2").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

 

[Cousinhub]

Re : Copier avec condition

Re-,

Démarre l'enregistreur de macro, puis sélectionne la cellule "L2" (n'efface pas la formule), clique sur F2 puis Entrée et stoppe l'enregistreur.
Tu auras ainsi la formule

 

[Cazinos]

Re : Copier avec condition

merci

voici le résultat pour la formule
j'ai fait un test sur la primière colonne avec "=VLOOKUP(RC[1],BDD,2,FALSE)"
ca donne rien surement que je dois pas faire le bon truc


Sub Macro1()

Range("L2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1],BDD,2,FALSE)"
End Sub

Sub Macro2()
'
Range("M2").Select
ActiveCell.FormulaR1C1 = _
"=IF(MID(SUBSTITUTE(RC[-12],"" /"",""/""),16,1)=""/"",LEFT(RC[-12],15)," & Chr(10) & "IF(MID(SUBSTITUTE(RC[-12],""/ "",""/""),LEN(RC[-12])-15,1)=""/"",RIGHT(RC[-12],15),""Matricule tronqué""))"
End Sub