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

Dravol · 26 Avril 2021

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 · 26 Avril 2021

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 · 26 Avril 2021

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 · 26 Avril 2021

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 · 26 Avril 2021

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

Dravol · 26 Avril 2021

Re

Merci c'est parfait.

Drav.

Lolote83 · 26 Avril 2021

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

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

Dravol

XLDnaute Junior

Lolote83

Lolote83

XLDnaute Barbatruc

Dravol

XLDnaute Junior

Lolote83

XLDnaute Barbatruc

Dravol

XLDnaute Junior

Lolote83

XLDnaute Barbatruc

Discussions similaires