[Résolu] Copier formule mais pas donnéees

[Alza]

Bonjour à tous !
Je viens vers vous car j'ai une question toute bête, j'ai un tableau de données avec certaines colonnes de données brut et certaines colonnes de formules (tableau de 40 000 lignes voué à s'agrandir encore).

Je cherche à boucler sur chaque colonne de mon tableau et dans le cas ou la 2nde ligne de la colonne est une formule la recopier sur chaque ligne de la colonne (mais pas si c'est une valeur brute, uniquement dans le cas ou une formule est présente !!)

J'ai donc fais ce petit code qui ne contient pas encore la boucle mais soit :

firstligne = d.Range("U" & Rows.Count).End(xlUp).row
derligne = d.Range("A" & Rows.Count).End(xlUp).row
d.Range("U" & firstligne & ":U" & derligne).FormulaR1C1 = d.Range("U2").FormulaR1C1

Seulement j'ai un problème, malgré la précision "FormulaR1C1", si il n'y a pas de formule mais une valeur cela copie quand même la valeur dans toute la colonne, écrasant toutes les autres valeurs !

Comment puis-je remédier à cela ?

Merci d'avance de vôtre aide


Edit : Problème résolu avec un If Left(d.Range("U2").FormulaR1C1, 1) = "=" Then
Cependant si quelqu'un avait une solution + propre à proposer je suis preneur !

 

[gosselien]

Bonjour,

avec un fichier de 20/30 lignes tu serait mieux aidé 🙂

P.

 

[Iznogood1]

Bonjour,

Left(d.Range("U2").FormulaR1C1, 1) = "="

par

d.Range("U2").HasFormula = True

Possible que ce ne soit valable qu'à partir d'Excel 2013
Voir Ce lien n'existe plus

Sinon, ton premier code est correct.

 

[Alza]

Bonjour,

Super merci à toi, exactement ce que je cherchais mais n'avais pas réussi à trouver !

Merci et bonne journée,
Alza