Discussion :

[babybell]

Bonjour le forum

Dans un bout de code, j'ai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sheets("CSV ").Range("A1").Copy sheets("Temp ").Range("A4")

J'aimerai savoir comment, plutôt que de sélectionner la cellule "A4" sur la feuille "Temp", je pourrai sélectionner la cellule vide suivant la dernière cellule occupée de la colonne A ?

Merci de votre aide

[DeaD78]

Bonjour,

Remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("A4")

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A65536").End(xlUp).Offset(1, 0).Row

pour avoir la première ligne vide de la colonne A après la dernière cellule non vide.

Dans ton cas, vire le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Row

A+

[Minick]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sheets("CSV ").Range("A1").Copy sheets("Temp ").Range("A" & sheets("Temp ").Range("A65536").End(XlUp).row + 1)

++
Minick

[-Naek-]

Si cela peut aider . Ce code parcours la colonne A, cherche la dernière case vide et la sélectionne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Sub Pacours_Col_A()
'Placement sur le feuille où tu travail "infos_systemes" ( a remplacer par Feuil1)
Sheets("infos_systemes").Select
'Variables
Dim Cel As Variant, i As Long
'Declaration d'un range
Set Cel = Range("A2")
'Calcule du nombre de ligne dans la feuille "infos_systemes"
Nb_Lignes = Sheets("infos_systemes").Range("a65536").End(xlUp).Row
 
For i = 1 To Nb_Lignes
    'si la cellule est égale au vide, alors
    If Cel(i) = "" Then  
       'Selection de la celulle
       Cel(i).Select
       'Sortie de la boucle
       Exit For
    End If
Next i
 
End Sub

A ++

[babybell]

Merci à vous

Très bonne journée