Copier avec condition

Cousinhub

XLDnaute Barbatruc

Inactif

• 2 Mai 2008

• #2

Re : Copier avec condition

Bonsoir,

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

Code:

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

 

Vote positif 0 Vote négatif

C

Cazinos

XLDnaute Occasionnel

• 2 Mai 2008

• #3

Re : Copier avec condition

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 2 Mai 2008

• #4

Re : Copier avec condition

Re-,

ou bien j'oublie un quelque chose

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

C

Cazinos

XLDnaute Occasionnel

• 2 Mai 2008

• #5

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

 

Vote positif 0 Vote négatif

C

Cazinos

XLDnaute Occasionnel

• 2 Mai 2008

• #6

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 2 Mai 2008

• #7

Re : Copier avec condition

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

Code:

Sheets("Bx").Select

est-elle indispensable?

sans le Select :

Code:

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

 

Vote positif 0 Vote négatif

C

Cazinos

XLDnaute Occasionnel

• 2 Mai 2008

• #8

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 2 Mai 2008

• #9

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

 

Vote positif 0 Vote négatif

C

Cazinos

XLDnaute Occasionnel

• 2 Mai 2008

• #10

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 3 Mai 2008

• #11

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

 

Vote positif 0 Vote négatif

C

Cazinos

XLDnaute Occasionnel

• 3 Mai 2008

• #12

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

 

Vote positif 0 Vote négatif