Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Macro : Etirer cellule vers le bas

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Laurentb974

XLDnaute Nouveau
Bonjour à tous,
Chaque jour, j'édite une feuille excel que je compare avec la veille. J'ai donc de nouvelles lignes qui apparaissent en plus chaque jour.
Sur la colonne A apparaît le nom de la classe. 301, des cases vides puis 302 ( je mets le fichier en PJ ).
Je voudrais essayer une macro qui réalise la chose suivante ( je suis désolé, je débute avec Excel ) : à chaque fois que tu rencontre une donnée, étire cette donnée jusque la prochaine donnée.
Est-ce que cela vous paraît possible ?
Je vous remercie.
Bien à vous,
Laurent
 

Pièces jointes

Trier par date Trier par votes
Bonjour Laurent, bonjour le forum,
Peut-être comme ça :
VB: 
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)

Set O = Worksheets("Feuil1") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row - 1 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
TV = O.Range("A2:A" & DL) 'définit le tableau des valeurs TV
For I = 2 To UBound(TV, 1) 'boucles sur toutes les lignes du tableau des valeurs TV
  If TV(I, 1) = "" Then TV(I, 1) = TV(I - 1, 1)
Next I 'prochaine ligne de la boucle
'renvoie dans F5 redimensionnée de l'onglet O le tableau TL transposé
O.Range("A2").Resize(DL - 1, 1).Value = TV
End Sub[\code]
 
Vote positif 0 Vote négatif
Bonjour
Salut à Robert 😉

On peut aussi faire via la touche F5 :
  • sélectionner la première colonne du tableau
  • F5, cellules, cellules vides
  • Taper =A24 dans la barre de formule et valider par CTRL Entrée,
  • puis CTRL C et collage spécial valeur
 
Vote positif 0 Vote négatif
Bonjour Chris,
Je n'ai pas réussi à réaliser ce que tu proposes.
Est-ce que "=A24" signifie qu'il va remplir les cases vides par la valeur de la A24 ?
Parce que je ne cherche pas tout à fait cela. Il est possible qu'il doive insérer la valeur A24 jusque A39 puis une autre valeur en A40 qui devra continuer jusque A67 par exemple, etc.
Merci ;-)
 
Vote positif 0 Vote négatif
re,

VB: 
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)

Set O = Worksheets("Feuil1") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row - 1 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
TV = O.Range("A2:A" & DL) 'définit le tableau des valeurs TV
For I = 2 To UBound(TV, 1) 'boucles sur toutes les lignes du tableau des valeurs TV
  If TV(I, 1) = "" Then TV(I, 1) = TV(I - 1, 1)
Next I 'prochaine ligne de la boucle
'renvoie dans F5 redimensionnée de l'onglet O le tableau TL transposé
O.Range("A2").Resize(DL - 1, 1).Value = TV
End Sub
 
Vote positif 0 Vote négatif
re
Non dans ton exemple la première cellule à remplir est A25 donc cela dit "si c'est vide (puisque F5 a sélectionner les vides, prendre la cellule d'au-dessus" : c'est donc dynamique car A25 contient A24 mais A26 contient A25 et quand il arrive à A40 il prend donc A39

C'est de la simple logique de calcul Excel : il n'y a pas de $ dans la formule donc ce n'est pas une adresse absolue ($A$24) mais bien relative A24...

Si tu n'as pas réussi, c'est que tu as mal effectué une des étapes décrites...
 
Vote positif 0 Vote négatif
Waou ! Ah oui quand même !
Je n'ai même pas le temps de terminer autre chose que vous avez déjà répondu !!!
La solution de Robert fonctionne, c'est magique ! ;-).
Elle est évidemment un peu obscure pour mon niveau, mais je trouve ça inspirant !
Je n'ai pas encore essayé la solution de Chris. Je vais m'y pencher pour essayer de comprendre ce qu'il ne va pas.
Merci beaucoup !
Laurent
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2021 Extraction images depuis commentaire de cellule vers dossier.
11 12 13
Réponses
182
Affichages
3 K
patricktoulon
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
439
ManuEven
M
O
  • Question Question
Autres recopie de cellules selon la date
Réponses
3
Affichages
287
olivier Clech
O
R
  • Résolu(e)
Microsoft 365 Extraction contenu mail outlook vers excel
2
Réponses
18
Affichages
2 K
raf26
R
G
  • Question Question
Microsoft 365 Macro VBA - mise en forme export excel
Réponses
6
Affichages
559
gpera
G
  • Question Question
XL 2021 Orientation d'une image dans le commentaire d'une cellule
2 3
Réponses
42
Affichages
2 K
AtTheOne
J
  • Question Question
XL 2016 macro pour remplir un calendrier à partir d'une liste d'évènements
Réponses
3
Affichages
655
julien6337
J
G
  • Question Question
XL 2019 Macro mise à jour cellule avec identification des modif.
Réponses
3
Affichages
686
sousou
F
  • Résolu(e)
XL 2010 Glissement de cellules en fonction de 2 caractères
2
Réponses
20
Affichages
2 K
Gégé-45550
D
  • Question Question
Microsoft 365 Enlever les mois inutiles dans un graph
Réponses
0
Affichages
587
dodo_
D
Q
  • Résolu(e)
XL 2019 Modification macro
Réponses
8
Affichages
791
Quicksland
Q
J
  • Question Question
Microsoft 365 Macro excel : Copier-Coller cellules vers des cellules vides à la suite
Réponses
6
Affichages
1 K
Julien91
J
S
  • Question Question
XL 2013 Macro ou formule pour remplir un tableau automatiquement par rapport à la date
Réponses
2
Affichages
1 K
Sylvain. B
S
D
  • Résolu(e)
XL 2010 Déplacer des lignes entières sous condition d'un tableau vers différents onglets
2
Réponses
20
Affichages
2 K
Djehnsr
D
R
  • Question Question
Microsoft 365 Supprimer les lignes vides d'une variable tableau
Réponses
1
Affichages
699
Phil69970
K
  • Question Question
XL 2016 From Excel to Outlook - Déclenchement sur la date et arrêt de la macro
Réponses
3
Affichages
1 K
AtTheOne
T
  • Question Question
Microsoft 365 Dupliquer automatiquement une ligne selon le nombre de dates
Réponses
5
Affichages
1 K
thr92
T
O
  • Question Question
XL 2019 Installation d'alertes avec conditions via une macro
Réponses
1
Affichages
841
Olocsob
O
L
  • Question Question
XL pour MAC ajouter une notion de date à une macro
Réponses
5
Affichages
778
LeLudo
L
P
  • Question Question
XL 2010 Macro et fichier .csv
2
Réponses
20
Affichages
3 K
papypog
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…