Macro Excel - une petite condition initiale

Résolu
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

1 réponse

  1. Contributeur
    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 :-)
    1. 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
    2. Contributeur
      OK, je te propose un truc dans un petit 1/4 heure
    3. Merci d'avance!
    4. Contributeur
      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
    5. Merci bcpppppppppppppp