probleme de if..elseif..

Bonjour a tous !

J'ai un petit problème de code,
j'ai ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64

Sub Macro_Maj()   Workbooks.Open (Chemin& Dossier) Windows(Dossier).Activate Sheets("feuil1").Activate   Dim i As Integer Dim i2 As Integer   For i = 1 To 700 Step 1   If i = 4 Or i = 35 Or i = 51 Or i = 71 Or i = 97 Or i = 134 Or i = 151 Or i = 168 Or i = 184 Or i = 198 Or i = 212 Or i = 228 Or i = 246 Or i = 262 Or i = 277 Or i = 293 Or i = 309 Or i = 319 Or i = 330 Or i = 350 Or i = 375 Or i = 386 Or i = 393 Or i = 463 Or i = 502 Or i = 503 Or i = 511 Or i = 526 Or i = 551 Or i = 565 Or i = 616 Or i = 644 Then   If i = 4 Then i2 = 19 ElseIf i = 35 Then i2 = 49 ElseIf i = 51 Then i2 = 64 ElseIf i = 71 Then i2 = 82 ElseIf i = 97 Then i2 = 108 ElseIf i = 134 Then i2 = 126 ElseIf i = 151 Then i2 = 142 ElseIf i = 168 Then i2 = 158 ElseIf i = 184 Then i2 = 173 ElseIf i = 198 Then i2 = 186 ElseIf i = 212 Then i2 = 199 ElseIf i = 228 Then i2 = 214 ElseIf i = 246 Then i2 = 231 ElseIf i = 262 Then i2 = 246 ElseIf i = 277 Then i2 = 259 ElseIf i = 293 Then i2 = 274 ElseIf i = 309 Then i2 = 289 ElseIf i = 319 Then i2 = 298 ElseIf i = 330 Then i2 = 308 ElseIf i = 350 Then i2 = 336 ElseIf i = 375 Then i2 = 359 ElseIf i = 386 Then i2 = 370 ElseIf i = 393 Then i2 = 384 ElseIf i = 463 Then i2 = 460 ElseIf i = 502 Then i2 = 498 ElseIf i = 503 Then i2 = 509 ElseIf i = 511 Then i2 = 515 ElseIf i = 526 Then i2 = 531 ElseIf i = 551 Then i2 = 563 ElseIf i = 565 Then i2 = 578 ElseIf i = 616 Then i2 = 628 ElseIf i = 644 Then i2 = 654   Windows("Départs.xls").Activate Sheets("Départs1").Activate Range("E" & i).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows(Dossier).Activate Sheets("feuil1").Activate Range("I" & i).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False   End If   Next   Workbooks(Dossier).Close   End Sub

---

et donc le problème c'est que ce code ne fonctionne pas comme je veux ^^

Donc pour moi, ce code devrai fonctionner comme ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

For i = 1 To 700 Step 1 If i = 4 If i = 4 Then i2 = 19 Windows("Départs.xls").Activate Sheets("Départs (SCHNEIDER-SOCOMEC)").Activate Range("E" & i).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows(Dossier_Chiffrage_Elec_Energence_Clauger).Activate Sheets("Chiffrage").Activate Range("I" & i).Select Selection.PasteSpecial Paste_ :=xlPasteValues,Operation:=xlNone,SkipBlanks _ :=False, Transpose:=False

---

et la ca reviens au départ et ca fait pareil mais pour i = 35

Mais il ne fonctionne pas comme cela... je pense que c'est a cause des elseif car c'est la premier fois que je m'en sert

Cordialement

Bonjour,

Et si tu commençais par utiliser "case select" plutôt que "if elseif" ?

De plus les 'select' et 'activate' à profusion ne servent dans beaucoup de cas à rien dès lors que le fichier est ouvert.

cordialement,

C'est bon j'ai résolu mon problème
j'ai simplement mis

Code:

---

1 2	If i = 4 Then i2 = 19: GoTo prog

---

et la suite c'est

Code:

---

1 2 3 4 5 6 7 8 9 10

prog: Windows("Départs.xls").Activate Sheets("Départs (SCHNEIDER-SOCOMEC)").Activate Range("E" & i).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows(Dossier_Chiffrage_Elec_Energence_Clauger).Activate Sheets("Chiffrage").Activate Range("I" & i).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

Je laisse le post actif pour voir des réponses qui serait pas une échappatoire pas très jolie..

Cordialement

Un code un peu plus simple qui fait la même chose...

Par contre i2 n'est utilisé nulle part... Donc je ne vois pas l'intérêt.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub toto() Dim i As Integer, j As Integer, i2 As Integer   tablo1 = Array(4, 35, 51, 71, 97, 134, 151, 168) tablo2 = Array(19, 49, 64, 82, 108, 126, 142, 158)   For j = LBound(tablo1) To UBound(tablo1) i2 = tablo2(j) i = tablo1(i)   Windows("Départs.xls").Activate Sheets("Départs1").Activate Range("E" & i).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows(Dossier).Activate Sheets("feuil1").Activate Range("I" & i).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False       Next j End Sub

---

Bonjour, et merci pour vos réponses
nibledispo
le : Je laisse le post actif pour voir des réponses qui serait pas une échappatoire pas très jolie..
n'est pas pour toi, je n'avais pas vu ton post désolé ^^

je vais me renseigné sur ce que tu m'as dit

EngueEngue
je me suis trompé i2 sert enfaite ici

Code:

---

1 2 3

Range("I" & i2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

et je vais testé ton programme desuite.

Merci
pour mes tests je l'avais changé et j'ai oublié de le reprendre désolé ^^

coquille dans le code:

i = tablo1(i)

Code:

---

i = tablo1(j)

---

EngueEngue

J'ai testé ce que tu m'as donné, mais cela ne fonctionne pas, je t'explique

donc au début ca va, ca marche comme je veux ca copie la sélection qui commence a E4, et y colle en I19 dans l'autre classeur
nickel
mais le deuxième, il me copie la sélection qui commence à E97 et y colle en I49 ^^
j'ai testé 2 fois ton programme et il fait la même donc ce n'est pas aléatoire
(excuse moi je ne connais pas ce que tu a mis donc j'émets des hypothèses surement fausse)

et je ne sais pas quoi modifié car pour moi ce que tu as mis a l'air juste.

ha bah voila ^^
tu l'as modifié
merci bien !!

maintenant je vais testé la case select

Donc voila j'ai testé les deux techniques
Merci a vous deux : EngueEngue et nibledispo

La méthode de nibledispo est la même que la mienne niveau longueur ( même plus long je trouve si on utilise pas le "goto")

Mais il faut le dire la méthode de EngueEngue est la plus courte et la plus simple si il y a des modifications a faire ^^

Merci encore

En effet, il paraît que ceux qui en ont une plus longue font des codes plus courts..

ha bon ^^
moi je pense que c'est plus pour l'utilisation, plus le code est court, moins ca dure ;)

(et c'est prouvé, mon code en pas à pas dur plus longtemps :D)

Faux, contre exemple:

Code:

---

1 2 3 4

Sub totoenaunepluslongue() Do Loop until x=-1 End sub

---

MDR !!
une boucle infini...
Perso ca me fait planté mon Excel

Je savais pas que tu avais des problèmes, et que la sauce étais périmé depuis le temps qu'elle y est :D
(excusé moi âme sensible)

Bonjour,

Je ne sais qui a la plus longue mais ce ne doit pas être moi qui ne parvient pas à comprendre ce code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Windows("Départs.xls").Activate Sheets("Départs1").Activate Range("E" & i).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows(Dossier).Activate Sheets("feuil1").Activate Range("I" & i).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

cela peut,sauf erreur de ma part, se résumer à :

Code:

---

1 2 3 4

Windows("Départs.xls").Sheets("Départs1"). range(cells(i,5), cells(i,5).End(xlDown)).Copy Windows(Dossier).Sheets("feuil1"). Range("I" & i).PasteSpecial Paste:=xlPasteValues,

---

C'est dire que l'on recopie à chaque passage dans la boucle une plage allant de la ligne i à la fin du fichier. Pourquoi ?

et à quoi sert i2 dans tout cela ?

Cordialement,

Salutation

héhé et bah je te dit, tu as tors

si tu as suivi le fil de la conversation, i2 sert a quelque chose :

Code:

---

1 2 3

Range("I" & i2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

donc ce que tu as fait est faux
et puis de toute façon il y a des cases bien précises a copier, donc ta méthode ne fonctionne pas, et est plus longue en vrai

Bonjour,

Je ne prétends pas avoir raison, je demande seulement à ce qu'on éclaire ma lanterne.
En effet le post 5 qui m'était sorti de la la tête donne sa raison d'être à I2 et c'est encore heureux.

Par contre pourquoi recopier toute une plage à chaque fois. je suppose que le fichier ayant la recopie a déjà des informations en I qui ne seront pas détruites par la recopie de lignes particulières.

tu conserves ton premier for next de 1 à 700 ?

Cordialement,

Si justement, en gros si tu veux, la ou je colle tout ces tableaux, il y a juste la place pour ce tableau, autour c'est rempli de champ spéciaux

et la ou je copie il y a les tableaux et du vide entre ^^

donc je suis obligé de recopier le tableaux, et uniquement le tableau, c'est pour ca que la sélection jusqu'à cellule vide est intéressent

voila, j'espère que j'ai répondu a tes questions
cordialement