pb de condition

**captaine93** · 01/10/2008, 09h58

bonjour!
Dans le code suivant, si la condition n'existe pas (ie aucune cellule index,1 ne contient 1 et index,3 ne contient rien), le programme plante...je ne sais pas comment faire pour que si cette condition n'existe pas, il passe au point suivant...

Code :

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

1
2
3
4
5
6
7
8
9
10
For Index = 1 To 10000
 
 If (Cells(Index, 1) = "1" And Cells(Index, 3) = "") Then
  Range(Cells(Index, 1), Cells(Index, 2)).Select
  Selection.Copy
 
Cells(Index, 100).Select
ActiveSheet.Paste
End If
    Next Index

Merci à ceux qui pourront m'aider

**Godzestla** · 01/10/2008, 10h07

Bonjour,

tu devrais éviter d'utiliser Index qui est un mot réservé de VBA (voir help sur Index)

Select est aussi à éviter car il ralenti le code.

Et puis tu testes Index 1 et 3 et tu utilise 1 et 2 ???

Code :

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

1
2
3
4
5
6
7
8
9
10
For Index = 1 To 10000
 
 If (Cells(Index, 1) = "1" And Cells(Index, 3) = "") Then
  Range(Cells(Index, 1), Cells(Index, 2)).Copy
 
  ActiveSheet.Cells(Index, 100).Paste

End If
    Next Index

Ok ?

**captaine93** · 01/10/2008, 11h10

ok...j ai compris pour select et paste...effectivement, c est plus rapide!
Pour index, par koi puis je remplacer?
Sinon, les données sont organisées comme suit :
colonne a = 1 ou 2
colonne b = chiffre représentant une bonne reponse
colonne c = chiffre représentant une mauvaise reponse

Il ne peut donc pas y avoir des chiffres dans b et c à la fois. C'est pour ca que je peux tester index,1 et index,3 et copier index,1 et index,2.

Merci

**Godzestla** · 01/10/2008, 11h18

Pour index, par koi puis je remplacer?

Par ce que tu veux, mais qui n'est pas réservé. Idx par exemple.

Ok pour ton explication, mais si cela calle encore, qu'elle est l'erreur, quelle est l'instruction, quelle est la valeur de l'index (idx....), que valent cells(idx, 1) et cells(idx, 2).

Es-tu certain(e) qu'il n'y a pas de ligne vide de 1 à 10000 ?

**ucfoutu** · 01/10/2008, 11h27

Bonjour, Godzestla
Je pense qu'il n'a plus de problème...
Je voudrais simplement l'encourager à apprendre à "soulager" systémlatiquement sa machine ...

Code :

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

1
2
3
4
5
6
If (Cells(Index, 1) = "1" then
  If Cells(Index, 3) = "") Then
     Range(Cells(Index, 1), Cells(Index, 2)).Copy
     ActiveSheet.Cells(Index, 100).Paste
  end if
End If

permettra d'éviter de faire systématiquement 2 comparaisons (en limitant la nécessité de le seconde à la vérification de la 1ère condition)
Je sais... je sais... c'est une goutte d'eau ... mais les rivères sont formées de gouttes d'eau....

**Godzestla** · 01/10/2008, 11h30

Envoyé par ucfoutu

Bonjour, Godzestla
Je pense qu'il n'a plus de problème...
Je voudrais simplement l'encourager à apprendre à "soulager" systémlatiquement sa machine ...

Je sais... je sais... c'est une goutte d'eau ... mais les rivères sont formées de gouttes d'eau....

Salut ucfoutu
Remarque très pertinente. J'aurais du y penser

Bonne journée.