Macro Excel 1 Résolu

Question

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

Patrice33740 · Answer

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

Mytå · Answer

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)]

tetradon · Answer

Merci

ceci m'arrange bien

Macro Excel 1

3 réponses

Discussions similaires

Newsletters