Macro répétant des valeurs

[karine]

Bonjour,

Je recherche actuellement une macro susceptible de me résoudre le p'tit problème suivante.

Exemple :
En cellule A1, j'ai : 2323
En cellule A2, je n'ai rien : cellule vide
En cellule A3, je n'ai rien : cellule vide
En cellule A4, j'ai : 12
En cellule A5, je n'ai rien : cellule vide
En cellule A6, je n'ai rien : 14


Je recherche une macro susceptible de me répéter la valeur précédente dans une cellule à la condition que la cellule soit vide.

La macro doit donner le résultat suivant :
en A1 : 2323, en A2 : 2323, en A3 : 2323, en A4 : 12, A5 : 12, en A6 : 14.

J'espère que vous avez compris ce que je cherche à faire.

Merci d'avance pour votre aide,


Karine

 

[Mytå]

salut Karine

Vite fait cela devrait faire

Sub remplir()
Dim ligne As Integer
For ligne = 1 To Range("a65535").End(xlUp).Row
If Cells(ligne, 1) = "" Then
Cells(ligne, 1) = Cells(ligne - 1, 1)
End If
Next ligne
End Sub

Mytå

 

[Mytå]

re le forum

Karine suite a une question on aime bien savoir si cela ta satisfaite

P.S. Prière d'accuser réception si cela te convient
ou ne convient pas en répondant sur ce Post ... Merci !

 

[ERIC]

Bonjour à tous,

Voici mon probléme,

j'ai une feuille ou il me suffit de mettre un numéro de collaborateur et qui va me chercher automatiquement les données relatives à ce collaborateur dans plusieurs autres feuilles excel.

Je recherche une macro me permettant d'automatiser l'impression de cette synthése pour tous les numéros de collaborateurs...

C'est assez confus je vous l'accorde, mais si vous vous sentez l'ame d'un Champollion , je vous donne plus de renseignements.

Merci de votre aide !

Eric