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

Autofill avec VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Davets
  • Date de début Date de début

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
D

Davets

Guest
Bonjour,

Je souhaite intégrer dans une macro, une fonction qui permette d'étendre une cellule, jusqu'à la prochaine cellule non vide. Voici un exemple :

[table="width: 500, class: grid"]
[tr]
[td][/td]
[td]A[/td]
[/tr]
[tr]
[td]1[/td]
[td]Chien[/td]
[/tr]
[tr]
[td]2[/td]
[td][/td]
[/tr]
[tr]
[td]3[/td]
[td][/td]
[/tr]
[tr]
[td]4[/td]
[td]Chat[/td]
[/tr]
[tr]
[td]5[/td]
[td][/td]
[/tr]
[tr]
[td]6[/td]
[td]Rat[/td]
[/tr]
[tr]
[td]7[/td]
[td][/td]
[/tr]
[/table]

Le but serait donc d'étendre "Chien" à la cellule A2 et A3; "Chat" à A5,...

Le problème, c'est que le nombre de cellule vide entre les données (chien, chat, rat) varient et les données ne sont pas forcément toujours sur la même ligne. La fonction Autofill ne marche qu'avec une plage fixe

Pouvez vous m'aider s'il vous plait?
 
Trier par date Trier par votes
Re : Autofill avec VBA

Bonjour

C'est faisable sans macro :

  • sélectionner la plage concernée : exemple A2:A100
  • Touche F5, cellules, cellules vides
  • Taper la formule = A1 (adresse de la cellule au dessus de la 1ère vide)
  • Valider par CTRL Entrée
  • Copier
  • Collage spécial valeur

Sinon il faut une boucle de la ligne 2 à la ligne N qui teste si c'est vide, et si oui écrive la valeur au dessus d la ligne courante
 
Vote positif 0 Vote négatif
Re : Autofill avec VBA

Bonjour à tous
et sinon, la méthode de Chris que je découvre. (merci) avec l'enregistreur de macro. ca donne ca.

Code: 
Sub Macro4()

'
    Range("A1:A9").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "=R[-1]C"
    Range("A1:A9").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

E
  • Question Question
XL 2016 Rechercher une valeur d'un tableau dans un autre tableau
Réponses
3
Affichages
542
JHA
J
P
  • Résolu(e)
XL 2021 Formule avec SI ET et si possible plusieurs ET
Réponses
4
Affichages
221
PR.
P
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
1 K
Webperegrino
W
Y
  • Résolu(e)
Microsoft 365 Rechercher et remplacer éditer une procedure
Réponses
8
Affichages
332
YGU1
Y
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
454
TooFatBoy
A
  • Question Question
XL pour MAC Formatage de fichiers de coordonnées
Réponses
10
Affichages
389
agnesd
A
N
  • Question Question
Microsoft 365 Propagation de formule dans un tableau avec des valeurs existantes (saisies manuellement)
Réponses
4
Affichages
296
NikonvsWild
N
Y
  • Résolu(e)
XL 2016 4 Messages dans des formules différentes à imbriquer dans une seule formule SI.est vide.ET.ET
Réponses
6
Affichages
190
YGU1
Y
A
  • Résolu(e)
Microsoft 365 NB.SI sous condition_fusionner deux formules
Réponses
10
Affichages
491
job75
E
  • Question Question
Microsoft 365 Formule excel pour utiliser la dernier donnée d'une ligne dans une formule
Réponses
8
Affichages
525
emmanuel.conche
E
D
  • Résolu(e)
Microsoft 365 Récupérer la valeur d'une cellule d'un autre fichier
Réponses
7
Affichages
572
Diane272727
D
N
  • Question Question
XL 2019 Fonction RECHERCHEV
Réponses
2
Affichages
213
JHA
J
E
  • Question Question
Microsoft 365 Mise en forme conditionnelle d'une ligne avec critère.
Réponses
9
Affichages
634
TooFatBoy
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
544
firecarl
F
D
  • Question Question
XL 2021 Création d’un logiciel de livraison
Réponses
1
Affichages
304
Victor21
N
  • Résolu(e)
Microsoft 365 Aide pour insertion nombre aléatoire
2
Réponses
22
Affichages
1 K
NONO14
N
  • Question Question
Microsoft 365 VBA : fonction qui calcule une durée entre 2 dates en années, mois et jours
Réponses
8
Affichages
413
BenHarber
A
  • Question Question
XL 2021 Cellule VIDE dans un tableur a remplacer par
Réponses
3
Affichages
581
azertyh
A
  • Question Question
Microsoft 365 Découper du texte (sans VBA)
2
Réponses
20
Affichages
1 K
tbft
T
  • Résolu(e)
XL 2016 Modification de données en fonction d'une valeur
Réponses
3
Affichages
558
therse
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…