Macro répétant des valeurs

  • Initiateur de la discussion karine
  • Date de début
K

karine

Guest
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
 
M

Mytå

Guest
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å
 
M

Mytå

Guest
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 !
 
E

ERIC

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 885
Membres
101 830
dernier inscrit
sonia poulaert