XL 2019 Etendre la sélection jusqu'à la prochaine case remplie

[Philou2030]

Bonjour,
Dans une base de données avec plusieurs colonnes, je cherche à étendre une désignation pour remplir le cases vides jusqu'à la prochaine désignation ?
Avez-vous une idée pour faire ça de manière rapide (plus de 4000 désignations et 30 000 lignes).
Par avance merci,
Lucas

 

[Chris401]

Bonsoir et bienvenue
Merci de joindre un extrait de ton fichier afin de (peut-être) comprendre ta demande.

 

[Philou2030]

J'espère que c'est plus clair ! Je voudrais étirer les modèles en rouge afin de remplir toutes les cases vides de ma base de données.
Par avance merci,
Lucas

 

[Chris401]

Il aurait mieux valu un fichier !
- Sélectionne B2 à Bx (x étant ta dernière ligne)
- Touche F5 (Atteindre)
- Clique sur "cellules" (en bas à gauche)
- Coche "cellules vides" puis OK
- Sans toucher à rien, va dans la barre de formule et écris : =B2
- Valide avec CTRL et Entrée

Ensuite, tu peux faire un copier-coller valeurs

 

[Philou2030]

Merci Chris401, il s'agit d'un document confidentiel. Votre astuce ne fonctionne pas correctement elle vient uniquement recopier les premières cellules dans les vides. Et non étendre les listes à chaque nouveau modèle. Bien cordialement,
Lucas

 

[Bernard_XLD]

Bonjour Philou2030, chris401, le forum

il s'agit d'un document confidentiel.

Je ne vois pas ce qui vous empêche de faire un fichier de test light avec des données fictives. Cela ne prend que quelques minutes et évite de faire perdre leur temps aux contributeurs qui sont tous des bénévoles.

Cordialement, @+

 

[Philou2030]

Bonjour, je comprends voici le fichier d'exemple :
Il faudrait que l'on puisse remplir toutes les cases de modèles sur une très grande quantité de ligne.
Par avance merci,
Lucas

 

[Chris401]

Bonjour
Rien ne t’empêche de refaire la manip ; il suffit d'adapter le =Bx à la cellule qui se trouve au dessus de la 1ère cellule vide sélectionnée.

La même chose codée donne :

Sub Recopie()
Dim Derlg As Long
Derlg = Range("A" & Rows.Count).End(xlUp).Row
Range("B2:B" & Derlg).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-2]C"
End Sub