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

[Dravol]

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

 

[Lolote83]

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

Sub InsereTexte()
    xDerLig = Range("A65000").End(xlUp).Row
    Range("A" & xDerLig + 1) = "S19"
End Sub

@+ Lolote83

 

[Dravol]

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.

 

[Lolote83]

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

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

 

[Dravol]

Re

Merci c'est parfait.

Drav.

 

[Lolote83]

Re bonjour,
Par contre, je réitère ma remarque.
Il est vrai qu'avec un fichier exemple, c'est tout de même plus facile pour comprendre, analyser et répondre.
Dans ton cas, il y aurait peut être plus simple, mais bon !!!!
@+ Lolote83