copie cellules

michel33 · 16 Février 2006

bonjour
je cherche une macro qui permette de copier des cellules non vide sur une plage de ellules determinées.
ça ne doit pas etre compliqué,mais n'etant pas un pro de la macro,je ne m'en sors pas.
j'ai ecrit ceci:

Private Sub CommandButton1_Click()
For Each Cell In Range('B2:E26')
If Not IsEmpty(Cell.Value) Then
Cell.Select
Selection.Copy
End If
Next
End Sub

Ca ne fonctionne pas car ça doit etre bourré de fautes;pouvez-vous m'aider ?
merci d'avance
michel

_Thierry · 16 Février 2006

Bonjour Michel

Ton code n'est pas fondamentalement faux, mais tu tu stipules pas où tu veux copier les valeurs trouvées ?

Imaginons que tu veulent les copier sur une nouvelle feuille en colonne 'A' à la suite les unes des autres :

Option Explicit

Private Sub CommandButton1_Click()
Dim NouvelleFeuille As Worksheet
Dim Cell As Range
Dim x As Integer

Set NouvelleFeuille = Worksheets.Add

For Each Cell In Range('B2:E26')
If Not IsEmpty(Cell.Value) Then
x = x + 1
Cell.Copy NouvelleFeuille.Range('A' & x)
End If
Next
End Sub

Une autre alternative serait de préciser la feuille comme ceci :

Option Explicit

Private Sub CommandButton1_Click()
Dim FeuilleCible As Worksheet
Dim Cell As Range
Dim CellToCopy As Range

Set FeuilleCible = Worksheets('Feuil2')

For Each Cell In Range('B2:E26')
If Not IsEmpty(Cell.Value) Then

Set CellToCopy = FeuilleCible.Range('A65536').End(xlUp).Offset(1, 0)
Cell.Copy CellToCopy
End If
Next
End Sub

Voilà pour une première aproche...

Bon Appétit
[ol]@+Thierry[/ol]

michel33 · 16 Février 2006

bonjour thierry
en fait,je veux copier cette plage de cellule dans le presse papier(c'est pour faire un collage dans outlook express)
A+
michel

_Thierry · 16 Février 2006

Re Bonjour Michel

Dans ce cas non, pas directement, il te faudra passer par une Plage de cellule intermédaire qui groupera les cellules Non-Vides pour pouvoir les copier à nouveau en Plage Contigue...

Bon Appétit
[ol]@+Thierry[/ol]

copie cellules

michel33

XLDnaute Nouveau

_Thierry

XLDnaute Barbatruc

michel33

Guest

_Thierry

XLDnaute Barbatruc

Discussions similaires