Discussion :

[thierryakaguy]

donc j'aimerais copier une ligne si dans l'une des cellules de ligne (F) il y a "CFO".

lorsque j'execute la macro j'ai une erreur avec 400 ecrit,

pourtant il arrive à me recopier mais pas tout.

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
Sub Cfo()
 
Dim PremiereLigneVide As Long
 
Application.ScreenUpdating = False 'Gèle l'écran pendant l'exécution de la macro
 
PremiereLigneVide = Cells(3, 4).End(xlDown).Row 'Détermine la première ligne vide sous la cellule de départ
j = 3
 
For i = 3 To PremiereLigneVide
 
If Worksheets("FollowUp").Range("F" & i).Value = "CFO" Then
Worksheets("CFO").Range("A" & j & ":AO" & j).Value = Worksheets(1).Range("A" & i & ":AO" & i).Value
j = j + 1
 
End If
 
Next i
 
MsgBox "Vous avez copié " & j - 3 & " lignes.", , "Traitement terminé"
 
End Sub

[DeaD78]

Salut,

Essaie sans le .value ici :

Code :

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

1
2
Worksheets("CFO").Range("A" & j & ":AO" & j).Value = Worksheets(1).Range("A" & i & ":AO" & i).Value
j = j + 1

[thierryakaguy]

Ca ne change rien

Je vois pas oü est le probleme...

il me copie 9 ligne sur 11 mais y a le message d'erreur

et pourtant, mes lignes sont deja trie dans la feuille 1.

[aalex_38]

Il me semble qu'il y a un décalage entre i et j puisqu'il est incrémenté ensuite,
pourquoi utiliser J et pas seulement i ?

Code :

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

1
2
3
4
5
6
7
For i = 3 To PremiereLigneVide
 
 If Worksheets("FollowUp").Range("F" & i).Value = "CFO" Then
  Worksheets("CFO").Range("A" & i & ":AO" & i) = Worksheets(1).Range("A" & i & ":AO" & i) 
 End If
 
Next i

[thierryakaguy]

le j c'est le compteur pour ma feuille 2.

Si on ne prend que le i, je risque d'avoir des lignes vides entre les lignes avec

cfo.

Bon ici il s'averent que mes lignes cfo sont ensemble, mais la n'est pas le

probleme.

le probleme est de savoir pourquoi il break alors qu'il reste encore 2 lignes à copier (qui sont juste en dessous...)

quand j'enleve le Value, ça marche plus du tout, donc je le remet et j'ai que 9 copie sur 11 avec un erreur 400.

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
Sub Cfo()
 
Dim PremiereLigneVide As Long
 
Application.ScreenUpdating = False 'Gèle l'écran pendant l'exécution de la macro
 
PremiereLigneVide = Cells(3, 4).End(xlDown).Row 'Détermine la première ligne vide sous la cellule de départ
j = 3
 
For i = 3 To PremiereLigneVide
 
If Worksheets("FollowUp").Range("F" & i).Value = "'CFO" Then
Worksheets("CFO").Range("A" & j & ":AO" & j).Value = Worksheets(1).Range("A" & i & ":AO" & i).Value
j = j + 1
 
End If
 
 
Next i
 
MsgBox "Vous avez copié " & j - 3 & " lignes.", , "Traitement terminé"
 
End Sub

j'ai changé Worksheets("FollowUp").Range("F" & i).Value = "'CFO"

par Worksheets("FollowUp").Range("F" & i).Value = "''CFO"

le programme "marche" c'est dire que j'arrive jusqu' à la message box,

seulememt j'ai copié 0 lignes .......

Quelqu'un arrive à voir l'erreur ?

Mis le code dans un module et j'ai

Code :

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

Worksheets("CFO").Range("A" & j & ":AO" & j).Value = Worksheets("FollowUp").Range("A" & i & ":AO" & i).Value

en jaune

avec can't execute code in break mode

[aalex_38]

Code :

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

Worksheets(1)

est-ce la bonne feuille

Code :

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

MsgBox Worksheets(1).Name

[aalex_38]

J'ai modifié le code et deja ça marche mieux :

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
Sub Cfo()
 
Dim PremiereLigneVide As Long
Dim Fl As Worksheet
 
 Set Fl = Worksheets("Feuil1") ' Nom de la feuille a adapter
 
Application.ScreenUpdating = False 'Gèle l'écran pendant l'exécution de la macro
 
PremiereLigneVide = Fl.Cells(3, 4).End(xlDown).Row 'Détermine la première ligne vide sous la cellule de départ
j = 3
 
For i = 3 To PremiereLigneVide
If Fl.Range("F" & i).Value = "CFO" Then
Worksheets("CFO").Range("A" & j & ":AO" & j).Value = Fl.Range("A" & i & ":AO" & i).Value
j = j + 1
 
End If 
Next i
 
MsgBox "Vous avez copié " & j - 3 & " lignes.", , "Traitement terminé"
 
End Sub

Edit un bout du code m'interpelle :

Code :

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

Fl.Cells(3, 4).End(xlDown).Row

Ici tu t'arrête si tu as une cellule vide dans la colonne D, c'est ce que tu veux ?