Macro Excel - une petite condition initiale

Résolu
temy -  
 temy -
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.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    1. temy
       
      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
    2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      OK, je te propose un truc dans un petit 1/4 heure
      0
    3. temy
       
      Merci d'avance!
      0
    4. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      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
    5. temy
       
      Merci bcpppppppppppppp
      0

Discussions similaires

Changer la couleur d'une cellule selon son texte
fantomex -
Picton -

5 réponses