sélection de cellule

Version imprimable

08/06/2009, 10h15
babybell

sélection de cellule

Bonjour le forum

Dans un bout de code, j'ai

Code:

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
08/06/2009, 10h20
DeaD78

Bonjour,

Remplace

Code:

.Range("A4")

par

Code:

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:

.Row

A+
08/06/2009, 10h20
Minick

Salut,

Code:

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

++
Minick

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

Code:

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 ++

08/06/2009, 10h40
babybell

Merci à vous

Très bonne journée