Copier une cellule sous condition
Bonjour,
je suis plus que débutante en vba et j'ai beau chercher et tester je n'arrive pas à produire ce que je veux : je vous explique la macro :
j'ai une cellule en C2 que je voudrais recopier en C3 uniquement si D3 n'est pas vide ; et bien entendu le nombre de lignes en D est variable! ça fait un peu beaucoup pour moi ! si quelqu'un peut me fournir la soluce , qu'il soit béni
Édit dan : supprime "help" du titre du sujet
t'es sure de ton énoncé ?
Vu comme c'est rédigé, tant que tu auras une cellule dans ta colonne D non vide, il va recopier en colonne C3, C4 etc... la valeur de la colonne C2.
Je vois pas trop l'intérêt d'une macro pour faire ça.
Bonjour, je ne vois pas vraiement l'intérêt mais bon.
formule à mettre dans C3 : =SI(D2="";"";C2)
et si c'est pour toujours avoir la valeur de "C2"
=SI(D2="";"";$C$2)
Bonjour et merci de votre réponse rapide ;
je n'ai pas été assez précise : j'ai créé un exemple en fichier joint
j'ai 4 feuilles : janvier , février, mars et global
dans les 3 premières feuilles la structure est identique
en ligne 1, col C, D et E : les en-têtes : mois, facture, montant
en ligne 2 , col C le mois en question , D des donnée, E des données
Le nombre de lignes dans chaque feuille est variable
la macro va recopier sur la feuille "global" les données de janvier, février et mars
jusque là, j'ai trouvé comment recopier des plages variables les unes à la suite des autres
Mais je voudrais au préalable que le mois( qui est écrit en C2) vienne se copier sur la colonne C jusqu'à ce qu'il ne trouve plus de données sur la colonne D
si je comprends bien, ça donne ça
Oui Game over , au final ça donne ça
en tâtonnant , j'ai fini par trouver !( je sais pas comment d'ailleurs !!)
Sheets("janvier").Select
Dim i As Integer
i = Range("D65536").End(xlUp).Row
If Range("D" & i).Text <> "" Then
Range("C2").AutoFill Range("C2:C" & i)
Else
Range("C2" & i).Value = ""
End If
End Sub
Merci pour votre patience et bonne soirée