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 :
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 !
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 :
Code:
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").FormulaR1C1Seulement 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 !
Dernière édition: