Discussion :

[Pastore]

Bonjour à tous !

Je souhaite compter un nombre de lignes non vides puis faire un copier/coller d'une plage de cellules.
Etant débutant, voici mon code :

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
22
23
24
Sub AjouterProjet()
 
Dim V As Integer
Dim Ligne As Integer
Dim Cible As Range
Dim PlageCible As Range
 
V = 1
 
While Worksheets("EngLocation").Cells(V, 2) <> "" '<-- ERREUR
 
V = V + 1
Ligne = V
 
Wend
 
Cible = Worksheets("EngLocation").Range(Cells(Ligne, 2))
PlageCible = Worksheets("EngLocation").Range(Cells(Ligne - 4, 2), Cells(Ligne - 1, 6))
PlageCible.Select
Selection.Copy
Cible.Select
ActivseSheet.Paste
 
End Sub

Cela me marque : "L'indice n'appartient pas à la selection"

Pourriez-vous commenter mon code ?

Merci beaucoup par avance !!

Bonne journée à tous.

[JPierreM]

Bonjour

à la place de

Code :

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

1
2
Cible = Worksheets("EngLocation").Range(Cells(Ligne, 2))
PlageCible = Worksheets("EngLocation").Range(Cells(Ligne - 4, 2), Cells(Ligne - 1, 6))

mettre

Code :

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

1
2
Set Cible = Worksheets("EngLocation").Cells(Ligne, 2)
Set PlageCible = Worksheets("EngLocation").Range(Cells(Ligne - 4, 2), Cells(Ligne - 1, 6))

Attention aussi à V qui peut être égal à 0 si B1 est vide

JP

[Pastore]

Merci pour votre réponse, cependant un message d'erreur persiste :

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
22
23
24
Sub AjouterComposant()

Dim V As Integer
Dim Ligne As Integer
Dim Cible As Range
Dim PlageCible As Range

V = 7

While Worksheets("SR").Cells(V, 2) <> ""

V = V + 1
Ligne = V

Wend

Set Cible = Worksheets("SR").Range(Cells(Ligne, 1))
Set PlageCible = Worksheets("SR").Range(Cells(Ligne - 7, 1), Cells(Ligne, 2))
PlageCible.Select
Selection.Copy
Cible.Select
ActivseSheet.Paste

End Sub

Cela m'affiche : "Erreur d'application définie par l'application ou par l'objet"
J'imagine que cela doit être un problème de syntaxe, mais où ?

[Pastore]

Oups, pardon, j'avais mal lu votre correction. Le problème est résolu.

Cependant pouvez -vous m'expliquer pourquoi il ne fallait pas utiliser "Ranger" en définissant la cellule ?