Discussion :

[Domino40]

Bonsoir,

Je cherche la manip pour :

Sur une feuille excel dans la colonne A:A j'ai toute une série de données qui sont séparées de temps à autre par un ligne vierge.

Je souhaiterai
--> identifier la cellule vierge
--> Puis y insérer le contenu de ma cellule ("A1")

J'ai pensé utiliser : For Each pour localiser ma cellule vide, ensuite récupérer le contenu de la cellule A1 , mais comment faire pour revenir à ma cellule vide pou y coller le contenu du presse papier !

Merci d'avance
Domino40

[mercatog]

Une première proposition à main levée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
dim plage as range, c as range
set plage=range("A1:A" & cells(columns(1).cells.count,1).end(xlup).row)
for each c in plage
if trim(c.value)="" then c.value=range("A1").value
next c
set plage=nothing

edit, une parenthèse oubliée

[laetitia]

bonjour Domino40 l'ami mercatog le forum un autre exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
On Error Resume Next 'si pas de vide
Range("A2" & ":A" & Range("a65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks) = [a1]

[helas]

les 2 solutions proposées remplissent toutes les cellules vides trouvées
cette solution remplit la premiere cellule vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 Cells(Range("A1").SpecialCells(xlCellTypeBlanks).Row, 1) = Range("A1")

[Domino40]

Bonsoir

Est il possible que je puisse récupérer en plus de la valeur de "A1" son format (Police couleur etc..)

Cordialement,
Domino40

[laetitia]

re,essai comme cela!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1").Copy Destination:=Range("A" & [a1].End(xlDown).Row + 1)

[Domino40]

Voici donc ma ligne de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c.Value = Range("A1").Copy Destination:=Range("A" & [a1].End(xlDown).Row + 1)

Mais j'ai une erreur

Destination est en inversion vidéo et Il me met l'erreur suivante :

Attendu fin d'instruction

[laetitia]

re,pourquoi tu mets c.Value =ect

simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub essai()
Range("A1").Copy Destination:=Range("A" & [a1].End(xlDown).Row + 1)
End Sub

ou encore si tu as plusieurs cellules vide dans ta plage une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub essai()
Dim i As Long
For i = 2 To Range("A65535").End(xlUp).Row
If Cells(i, 1) = "" Then Cells(1, 1).Copy Destination:=Cells(i, 1)
Next i
End Sub

edit plus le temps de rester il faut que je partes a+

[Domino40]

Super ça marche !

Maintenant au lieu de copier la cellue A1 sur mes cellules vides trouvées , je voudrai copier toute la ligne de "A1" ou une plage "A1:F1"
Est ce possible ?

Cordialement,
Domino 40

[laetitia]

re,le principe reste le méme pour avoir le format & couleur

de a1 a f

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub essai()
Range("A1:f1").Copy Destination:=Range("A" & [a1].End(xlDown).Row + 1)
End Sub

toute la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub essai()
Rows(1).Copy Destination:=Range("A" & [a1].End(xlDown).Row + 1)
End Sub

plusieurs lignes de a1 a f

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub essai()
Dim i As Long
For i = 2 To Range("A65535").End(xlUp).Row
If Cells(i, 1) = "" Then Range(Cells(1, 1), Cells(1, 6)).Copy Destination:=Cells(i, 1)
Next i
End Sub

toute la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub essai()
Dim i As Long
For i = 2 To Range("A65535").End(xlUp).Row
If Cells(i, 1) = "" Then Rows(1).Copy Destination:=Cells(i, 1)
Next i
End Sub

[Domino40]

Un grand MERCI à toi pour ton aide si précieuse.
Tout fonctionne à merveille.

Je reste toujours stupéfait des possibilités de Vba

Excellente journée à toi et à tous ceux qui œuvrent sur ce forum.

Très cordialement,
Domino40