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

Chris401

XLDnaute Accro

• 5 Novembre 2021

• #2

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

 

Vote positif 0 Vote négatif

P

Philou2030

XLDnaute Nouveau

• 5 Novembre 2021

• #3

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

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 5 Novembre 2021

• #4

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

 

Dernière édition: 5 Novembre 2021

Vote positif 0 Vote négatif

P

Philou2030

XLDnaute Nouveau

• 8 Novembre 2021

• #5

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

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 8 Novembre 2021

• #6

Bonjour Philou2030, chris401, le forum

Philou2030 à dit:

il s'agit d'un document confidentiel.

Cliquez pour agrandir...

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, @+

 

Vote positif 0 Vote négatif

P

Philou2030

XLDnaute Nouveau

• 9 Novembre 2021

• #7

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

 

Pièces jointes

• Exemple.xlsx

  16.5 KB · Affichages: 4

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 9 Novembre 2021

• #8

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 :

VB:

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

 

Vote positif 0 Vote négatif