OVH Cloud OVH Cloud

remplir cellule vide

7 réponses
Avatar
vesb
Bonjour,
je cherche un moyen de remplir des cellules vides dans une colonne, avec le
nom qui est dans la première cellule non vide, jusqu'à ce que l'on rencontre
la prochaine cellule non vide, dont le contenu remplira les cellules vides
suivantes, etc.

Merci d'avance.
Chordially

7 réponses

Avatar
Christian.L
Bonjour

Pourquoi ne pas mettre une formule du type =LC(-1) dans la première
cellule vide, puis recopier cette cellule avec formule jusqu'a la cellule
non vide suivante, et ainsi de suite.

Bon courage

C.L.

"vesb" a écrit dans le message de news:

Bonjour,
je cherche un moyen de remplir des cellules vides dans une colonne, avec
le
nom qui est dans la première cellule non vide, jusqu'à ce que l'on
rencontre
la prochaine cellule non vide, dont le contenu remplira les cellules vides
suivantes, etc.

Merci d'avance.
Chordially




Avatar
AV
Pour la colonne A :

Sub zzz()
Set premC = [A1].Find("*", , , , xlByRows)
Set derC = [A:A].Find("*", , , , xlByRows, xlPrevious)
Set plg = Range(premC, derC)
plg.SpecialCells(xlCellTypeBlanks) = "=R[-1]C"
[A:A] = [A:A].Value
End Sub

AV
Avatar
Christian.L
Petite erreur

Il faut lire =L(-1)C

Toutes mes excuses

C.L.

"Christian.L" a écrit dans le message de
news:
Bonjour

Pourquoi ne pas mettre une formule du type =LC(-1) dans la première
cellule vide, puis recopier cette cellule avec formule jusqu'a la cellule
non vide suivante, et ainsi de suite.

Bon courage

C.L.

"vesb" a écrit dans le message de news:

Bonjour,
je cherche un moyen de remplir des cellules vides dans une colonne, avec
le
nom qui est dans la première cellule non vide, jusqu'à ce que l'on
rencontre
la prochaine cellule non vide, dont le contenu remplira les cellules
vides
suivantes, etc.

Merci d'avance.
Chordially







Avatar
vesb
Merci infiniment, la réponse est parfaite pour le besoin exprimé. J'ai
complété le reste de ma liste manuellement, (copier/coller) car il n'y avait
pas de "dernière cellule non vide"à la fin de ma liste . Éventuellement,
est-il possible d'envisager ce scenario pour une automatisation complète ?
Quoi qu'il en soit, merci encore.
Chordially
"AV" a écrit dans le message de news:
#
Pour la colonne A :

Sub zzz()
Set premC = [A1].Find("*", , , , xlByRows)
Set derC = [A:A].Find("*", , , , xlByRows, xlPrevious)
Set plg = Range(premC, derC)
plg.SpecialCells(xlCellTypeBlanks) = "=R[-1]C"
[A:A] = [A:A].Value
End Sub

AV




Avatar
AV
est-il possible d'envisager ce scenario pour une automatisation complète ?


C'est à dire ?

AV

Avatar
vesb
Bonjour, AV,

Je voulais dire
lorsque dans ma colonne(A), j'arrive à la dernière cellule non vide,
il y a d'autres cellules vides en-dessous, vis-à-vis de cellules non
vides(Colonne B),
en face desquelles il aurait fallu que le contenu de la dernière
cellule non-vide (Colonne A) se recopie.

C'est relativement peu important, dans la mesure où cela représentait
seulement une dizaine de lignes, et je l'ai fait manuellement.

Ma question était "Y a-t-il un moyen de tenir compte de cette éventualité,
afin, dans une prochaine tâche du genre,
d'accomplir le processus jusqu'à la dernière ligne de mon tableau ?

J'apprécie le fait que vous vous soyez donné la peine de "creuser" ma
dernière question.

Chordially

"AV" a écrit dans le message de news:
#
est-il possible d'envisager ce scenario pour une automatisation complète
?



C'est à dire ?

AV





Avatar
Ricky
Bonjour *vesb*
| Bonjour, AV,
|
| Je voulais dire
| lorsque dans ma colonne(A), j'arrive à la dernière cellule non vide,
| il y a d'autres cellules vides en-dessous, vis-à-vis de cellules
| non vides(Colonne B),
| en face desquelles il aurait fallu que le contenu de la
| dernière cellule non-vide (Colonne A) se recopie.
|
| C'est relativement peu important, dans la mesure où cela représentait
| seulement une dizaine de lignes, et je l'ai fait manuellement.
|

Un double clic sur la poignée de recopie effectue cela très bien et fonctionne même pour le dernier bloc puisqu'en fait il recopie aussi longtemps que la cellule du bas est vide ET que celle de gauche n'est pas vide




--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net