Salut tout le monde,
Alors vu le titre, vous vous dites de suite que ca a déjà été traité ailleurs mais je n'ai rien trouvé (ou ne l'ai pas compris) qui s'approche de mon cas. Vous l'aurez compris, je débute en VBA.
Je travaille sur un tableau m'indiquant le nombre de personnes d'un age donné habitant dans telle commune à une date précise. En ordonnée, j'ai le nom de la commune, l'age concerné. Et en abcisse, j'ai les années.
Le nom de la commune n'étant affiché qu'à la première ligne, je cherche à le recopier à toutes les lignes vides du dessous jusqu'à la commune suivante.
Voilà, merci de votre aide !
PS: mon objectif final est d'arriver à l'exemple donné par Alba = les 'trous' remplis par le nom de la commune, les groupes d'ages et les sommes des valeurs du dessus.
PS²: j'ai éssayé un code pour copier le nom de la commune mais au lieu de marcher vers le bas, il me fait les 'trous' au dessus
Sub Makro1()
Dim r As Variant
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 2) Like "Total" Then r = Cells(i, 1).Value
If Cells(i, 2) Like "" Then Cells(i, 1).Value = r
Next i
End Sub
Alors vu le titre, vous vous dites de suite que ca a déjà été traité ailleurs mais je n'ai rien trouvé (ou ne l'ai pas compris) qui s'approche de mon cas. Vous l'aurez compris, je débute en VBA.
Je travaille sur un tableau m'indiquant le nombre de personnes d'un age donné habitant dans telle commune à une date précise. En ordonnée, j'ai le nom de la commune, l'age concerné. Et en abcisse, j'ai les années.
Le nom de la commune n'étant affiché qu'à la première ligne, je cherche à le recopier à toutes les lignes vides du dessous jusqu'à la commune suivante.
Voilà, merci de votre aide !
PS: mon objectif final est d'arriver à l'exemple donné par Alba = les 'trous' remplis par le nom de la commune, les groupes d'ages et les sommes des valeurs du dessus.
PS²: j'ai éssayé un code pour copier le nom de la commune mais au lieu de marcher vers le bas, il me fait les 'trous' au dessus
Sub Makro1()
Dim r As Variant
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 2) Like "Total" Then r = Cells(i, 1).Value
If Cells(i, 2) Like "" Then Cells(i, 1).Value = r
Next i
End Sub
Dernière édition: