Copier formules dans une cellule pour la coller

  • Initiateur de la discussion Initiateur de la discussion Cazinos
  • Date de début Date de début

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 !

Cazinos

XLDnaute Occasionnel
Bonsoir le forum

Comment peut-on avec un macro récuperer une formule qui se trouve dans
"C2" pour la coller dans "C4" si "D4" contient une valeur

exemple de macro: si(D4<>"";copie C2 et colle-le dans C4) faire le test sur toutes les lignes de la colonne "D" qui contiennent une valeur

on peu tirer la formule vers le bas ou double-cliquer dans le coin en bas à droite mais le nombre de ligne change à chaque fichier

merci
 
Re : Copier formules dans une cellule pour la coller

Re-,
tu n'as pas tout à fait répondu à ma question...

Si ce sont des cellules renseignées à la main, et non des résultats de formules dans la colonne D, tu peux essayer ceci :

Code:
Sub Macro6()
    Range("D1:D" & [D65000].End(xlUp).Row).SpecialCells(xlCellTypeConstants, 23).Offset(, -1).Formula = [C2].Formula
End Sub
 
Re : Copier formules dans une cellule pour la coller

bonjour

j'ai changé "Range("D1😀" " par "Range("D4😀" " sinon la macro copie la formule dans le libellé.
un autre soucis quand la macro copie la formule dans "D4" la formule reste sur "B2 au lieur de "B4" ex : RECHERCHEV(B2;Code_Rubrique;2;FAUX) au lieu de RECHERCHEV(B4;Code_Rubrique;2;FAUX)
Par contre la macro fait bien son travail jusqu'en bas
Les donnée ne sont pas le resultat du formule pour répondre à ta question

J'aimerais faire la même chose dans la colonne J et K c'est la meme chose sauf que là on teste le colonne "I" exemple si(valeur num dans "i" alors copie ect

merci
 
Re : Copier formules dans une cellule pour la coller

Bonjour,
je viens de faire un essai avec exactement la même formule que toi, et le résultat est bon....
Es-tu sûr de ta formule?

Code:
=RECHERCHEV(B2;Code_Rubrique;2;FAUX)

et non pas :

Code:
=RECHERCHEV($B$2;Code_Rubrique;2;FAUX)

Regarde l'adressage de B2, il faut qu'il soit en relatif, et non pas en absolu, c'est à dire sans les $

Pour les colonnes J et K, c'est le même principe
 
Re : Copier formules dans une cellule pour la coller

Bonsoir,
pour s'affranchir des problèmes d'incrémentation, on va faire autrement...

Essaie le code suivant :

Code:
Sub Macro1()
Dim DerLig1 As Long, DerLig2 As Long
DerLig1 = [D65000].End(xlUp).Row
DerLig2 = [I65000].End(xlUp).Row
    Range("C2").AutoFill Destination:=Range("C2:C" & DerLig1)
    Range("D3:D" & DerLig1).SpecialCells(xlCellTypeBlanks).Offset(, -1).Value = ""
    Range("J2:K2").AutoFill Destination:=Range("J2:K" & DerLig2)
    Range("I3:I" & DerLig2).SpecialCells(xlCellTypeBlanks).Offset(, 1).Value = ""
    Range("I3:I" & DerLig2).SpecialCells(xlCellTypeBlanks).Offset(, 2).Value = ""
End Sub
 
Re : Copier formules dans une cellule pour la coller

merci c'est cool

pas besoin pour la colonne "c" c'est ok j'ai utilisé ta première formule dans la feuille "FEUILLE DE TRAVAIL"

Sub CopierCollerLibellé()
Range("D1😀" & [D65000].End(xlUp).Row).SpecialCells(xlCellTypeConstants, 23).Offset(, -1).Formula = [Formule_libellé].Formula

End Sub

Il me faudrait juste la colonne "j" et "k" sans coller les formats stp

merci
 
Re : Copier formules dans une cellule pour la coller

Re-,
justement, si je t'ai proposé cette solution, c'est que j'ai fait plusieurs essais, et que la plus fiable est celle-ci....
Sinon, reste la boucle, avec insertion de la formule, en dur, sans copie de la cellule de la deuxième ligne.

Euh, ce serait sympa de rester un peu plus longtemps en ligne....
Style : je pose, je m'en vais, je viens voir, je dis que ça marche pas, je m'en vais.....
Pas facile pour ceux qui voudraient bien t'aider
 
Re : Copier formules dans une cellule pour la coller

j'avais du texte en 'i3" c'est pour ça que la macro à planté

j'ai supprémé la ligne "Range("C2").AutoFill Destination:=Range("C2:C" & DerLig1)
je sais pas si c'est ça qu'il faut faire visiblement ca marche

il reste par contre le problème du formatage il copie pas que les valeurs il copie aussi les format

merci
 
Re : Copier formules dans une cellule pour la coller

Re-,
essaie avec :

Code:
Sub Macro1()
Dim DerLig1 As Long, DerLig2 As Long
DerLig1 = [D65000].End(xlUp).Row
DerLig2 = [I65000].End(xlUp).Row
For Each cel In Range("D4:D" & DerLig1).SpecialCells(xlCellTypeConstants, 23)
    cel.Offset(, -1).FormulaR1C1 = "=VLOOKUP(RC[-1],Code_Rubrique,2,FALSE)"
Next cel
For Each cel In Range("I4:I" & DerLig2).SpecialCells(xlCellTypeConstants, 23)
    cel.Offset(, 1).FormulaR1C1 = "=IF(RC[-5]=421100,RC[-2],0)"
    cel.Offset(, 2).FormulaR1C1 = "=IF(RC[-6]=421100,RC[-2],0)"
Next cel
 
- 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
10
Affichages
674
Retour