Macro Excel - une petite condition initiale

Résolu/Fermé
temy - 14 oct. 2010 à 10:06
 temy - 14 oct. 2010 à 11:43
Bonjour á tous,

Comment dire á une macro EXCEL :
Si la cellule est vide, alors copie la valeur de la cellule precedente, sinon, passe.

MERCI BCP DE VOS REPONSES


A voir également:

1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
14 oct. 2010 à 10:12
BONJour

la cellule precedente: laquelle? gauche dessus...feuille précédente...

alors copie la valeur : où ?

dans l'attente de ces petites précisions indispensables :-)
0
Salut Michel,
Merci deja de repondre á mon mail.
La cellule precedente du dessus...
Cest une colonne donnée,parfois il ya des valeurs vides dans cette colonne et jaimerai dire á la macro :
Sur cette colonne, lorsq'une cellule est vide, alors copie la valeur de la seule precedente (du dessus) dans la celllule vide, sinon passe.

Merci
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
14 oct. 2010 à 10:35
OK, je te propose un truc dans un petit 1/4 heure
0
Merci d'avance!
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
14 oct. 2010 à 10:45
et voila
Const Col As Byte = 1 ' n° colonne à executer
Const deplig As Byte = 2 'n° ligne de départ

Sub copier_cell_dessus()
Dim derlig As Long, cptr As Long

derlig = Cells(Cells.Rows.Count, Col).End(xlUp).Row
Application.ScreenUpdating = False

For cptr = deplig + 1 To derlig
    If IsEmpty(Cells(cptr, Col)) Then: Cells(cptr, Col) = Cells(cptr - 1, Col)
Next


Attention: tu as écrit cellule vide: donc pas de "" ni de 0 (voir Raymond Devos)
End Sub
0
Merci bcpppppppppppppp
0