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

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" &...

Lolote83

XLDnaute Barbatruc
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
 

Dravol

XLDnaute Junior
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

XLDnaute Barbatruc
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
 

Lolote83

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
315 123
Messages
2 116 458
Membres
112 747
dernier inscrit
Boudiou