Macro Excel 1

Résolu
tetradon Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -  
tetradon Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'aimerai dans une colonne, exemple la colonne 'P', faire une recherche de ligne vide et lorsque qu'il y une première ligne vide que celle-ci soit remplacée par une valeur de la ligne 'B2'.
Et que la recherche s'arrête des que la valeur a été rajoutée.

Merci
A voir également:

3 réponses

Réponse 1 / 3
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
Salut le forum

Tu peux utiliser cette macro 

With ActiveSheet 
    .Range("P1").End(xlDown).Offset(1, 0) = .Range("B2") 
End With

Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
1
Réponse 2 / 3
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

Essaie ceci : 

Option Explicit

Sub test()
Dim col As Range
Dim cel As Range

  Set col = ActiveSheet.Columns("P")
  For Each cel In col.Cells
    If IsEmpty(cel) Then
      cel.Value = ActiveSheet.Range("B2").Value
      Exit For
    End If
  Next

End Sub


Cordialement
Patrice
0
Réponse 3 / 3
tetradon Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
Merci

ceci m'arrange bien
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses