Besoin de macro excel pour copier cellules
Fermé
carhec
Messages postés
3
Date d'inscription
dimanche 3 janvier 2010
Statut
Membre
Dernière intervention
4 janvier 2010
-
4 janv. 2010 à 00:05
carhec Messages postés 3 Date d'inscription dimanche 3 janvier 2010 Statut Membre Dernière intervention 4 janvier 2010 - 4 janv. 2010 à 13:36
carhec Messages postés 3 Date d'inscription dimanche 3 janvier 2010 Statut Membre Dernière intervention 4 janvier 2010 - 4 janv. 2010 à 13:36
A voir également:
- Besoin de macro excel pour copier cellules
- Liste déroulante excel - Guide
- Formule excel - Guide
- Protéger des cellules excel - Guide
- Copier video youtube - Guide
- Aller à la ligne dans une cellule excel - Guide
1 réponse
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
4 janv. 2010 à 10:07
4 janv. 2010 à 10:07
Bonjopur,
essaies:
essaies:
Option Explicit
Sub remplir_sivide()
Dim Derlig As Long, Lig As Long, Dep As Long
Dim valeur
Application.ScreenUpdating = False
Derlig = Range("A65536").End(xlUp).Row
Lig = Columns(1).Find("", Cells(2, 1), xlValues).Row - 1
While Lig < Derlig
valeur = Cells(Lig, 1)
Dep = Lig + 1
Lig = Columns(1).Find("*", Cells(Lig, 1), xlValues).Row - 1
Range(Cells(Dep, 1), Cells(Lig, 1)) = valeur
Lig = Columns(1).Find("", Cells(Lig, 1), xlValues).Row - 1
Wend
End Sub
4 janv. 2010 à 13:36
Je te remercie vivement de ton aide.
cela marche parfaitement