XL 2019 Insérer texte spécifique après chaque cellule non vide dans plusieurs colonnes

  • Initiateur de la discussion Initiateur de la discussion Dravol
  • 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 !

Dravol

XLDnaute Junior
Bonjour à tous,

Encore besoin de votre aide^^

Je recherche un code VBA pour insérer du texte dans plusieurs cellules vides.

Exemple :
insérer texte "S19" dans dans la première cellule vide (ou après la dernière non vide) des colonnes A,B,C,E,G,H,I

Le principe est de pouvoir changer mon texte toutes les semaines et potentiellement changer également les colonnes.

Merci de votre aide.

Dravol
 
Solution
Re bonjour,
Toujours sans plus de données explicatives et donc pas de fichier.
En imaginant que les données en colonne ne soient pas toujours à la même ligne de fin
VB:
Sub InsereTexte()
    xDerLig_A = Range("A65000").End(xlUp).Row
    xDerLig_B = Range("B65000").End(xlUp).Row
    xDerLig_C = Range("C65000").End(xlUp).Row
    xDerLig_E = Range("E65000").End(xlUp).Row
    xDerLig_G = Range("G65000").End(xlUp).Row
    xDerLig_H = Range("H65000").End(xlUp).Row
    xDerLig_I = Range("I65000").End(xlUp).Row
    xTexte = "S19"
    Range("A" & xDerLig_A + 1) = xTexte
    Range("B" & xDerLig_B + 1) = xTexte
    Range("C" & xDerLig_C + 1) = xTexte
    Range("E" & xDerLig_E + 1) = xTexte
    Range("G" & xDerLig_G + 1) = xTexte
    Range("H" &...
Bonjour Dravol,
Un fichier simple sans donnée confidentielle serait le bienvenu car en l'état, la question reste floue.
Un exemple VBA pour insérer le texte "S19" dans la dernière cellule de la colonne A
VB:
Sub InsereTexte()
    xDerLig = Range("A65000").End(xlUp).Row
    Range("A" & xDerLig + 1) = "S19"
End Sub
@+ Lolote83
 
Bonjour Lolote83

Votre réponse est claire.

Reste à compléter le code avec sélection de multiples colonnes (après je peux copier votre code et le répéter pour plusieurs colonnes mais il y a sans doute plus simple).

Info importante, le texte sera le même pour toutes les colonnes (du coup cela simplifie la chose).

Si ma précision n'est pas suffisamment explicite, je joindrais un fichier pas de souci.

Drav.
 
Re bonjour,
Toujours sans plus de données explicatives et donc pas de fichier.
En imaginant que les données en colonne ne soient pas toujours à la même ligne de fin
VB:
Sub InsereTexte()
    xDerLig_A = Range("A65000").End(xlUp).Row
    xDerLig_B = Range("B65000").End(xlUp).Row
    xDerLig_C = Range("C65000").End(xlUp).Row
    xDerLig_E = Range("E65000").End(xlUp).Row
    xDerLig_G = Range("G65000").End(xlUp).Row
    xDerLig_H = Range("H65000").End(xlUp).Row
    xDerLig_I = Range("I65000").End(xlUp).Row
    xTexte = "S19"
    Range("A" & xDerLig_A + 1) = xTexte
    Range("B" & xDerLig_B + 1) = xTexte
    Range("C" & xDerLig_C + 1) = xTexte
    Range("E" & xDerLig_E + 1) = xTexte
    Range("G" & xDerLig_G + 1) = xTexte
    Range("H" & xDerLig_H + 1) = xTexte
    Range("I" & xDerLig_I + 1) = xTexte
End Sub
@+ Lolote83
 
- 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éponses
26
Affichages
1 K
Retour