Autres Ligne de macro Dernière colonne non vide

[Jacky 17]

Bonjour tous le monde
Je ne connais toujours pas l’Anglais ni vraiment les Macro et VB

Merci à JB pour son site et les classeurs formule plus macro
J’ai besoin à nouveau de votre aide

Ligne de macro Dernière colonne non vide
Quand je fait une recherche : Dernière colonne non vide
Le numéro de ligne ne change pas quand je rajoute une ligne
Si je modifie le numéro de ligne manuellement cela fonctionne très bien
Que faut-il faire ???

Une aide sera le bienvenu
En vous remercient d’avance
Jacky 17

 

[Jacky67]

Bonjour tous le monde
Je ne connais toujours pas l’Anglais ni vraiment les Macro et VB

Merci à JB pour son site et les classeurs formule plus macro
J’ai besoin à nouveau de votre aide

Ligne de macro Dernière colonne non vide
Quand je fait une recherche : Dernière colonne non vide
Le numéro de ligne ne change pas quand je rajoute une ligne
Si je modifie le numéro de ligne manuellement cela fonctionne très bien
Que faut-il faire ???

Une aide sera le bienvenu
En vous remercient d’avance
Jacky 17

Bonjour,
S'il s'agit de trouver la première colonne vide d'une dernière ligne saisie en colonne B, alors ceci peut-être

Sub Essai2()
    Dim DermierColonne&, Derniereligne&
    Worksheets("Import2").Activate
    Derniereligne = Range("B" & Rows.Count).End(xlUp).Row
    DermierColonne = Cells(Derniereligne, Columns.Count).End(xlToLeft).Column + 1
    Cells(Derniereligne, DermierColonne).Select
End Sub

 

[Jacky 17]

Bonjour,
S'il s'agit de trouver la première colonne vide d'une dernière ligne saisie en colonne B, alors ceci peut-être

Sub Essai2()
    Dim DermierColonne&, Derniereligne&
    Worksheets("Import2").Activate
    Derniereligne = Range("B" & Rows.Count).End(xlUp).Row
    DermierColonne = Cells(Derniereligne, Columns.Count).End(xlToLeft).Column + 1
    Cells(Derniereligne, DermierColonne).Select
End Sub

Re Bonjour Forum

Jacky67

Merci de t’intéresser à mon problème

Excuse moi du retard à répondre : aucune cigarette dans la maison

La macro fonctionne très bien j’ai simplement enlever le

+1 de DermierColonne =xxxxx

Car la cellule sélectionnée était juste à côté de la cellule non vide



Sub Essai2()

Dim DermierColonne&, Derniereligne&

Worksheets("Import2").Activate

Derniereligne = Range("B" & Rows.Count).End(xlUp).Row

‘ DermierColonne = Cells(Derniereligne, Columns.Count).End(xlToLeft).Column +1

DermierColonne = Cells(Derniereligne, Columns.Count).End(xlToLeft).Column Cells(Derniereligne, DermierColonne).Select

End Sub

Vite fait bien fait
Milles merci
Demande : Résolu
Bonne continuation
Cordialement

Jacky 17