Discussion :

[DSE76]

Bonjour

Je viens de créer la macro suivante :

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
 
Sub TraitementBrutSansNonSecu()
 
Dim i As Integer
Dim j As Integer
 
j = 2
Sheet("Brut_NonSecu").Range("1") = Sheet("Brut").Range("1")
For i = 2 To 189
 If Sheet("Brut").Range("F" & i) <> "PAS SECU" Then
  Sheet("Brut_NonSecu").Range(j) = Sheet("Brut").Range(i)
  j = j + 1
 End If
Next
 
End Sub

mais je ne peux la tester car je tombe sur une erreur de type Sub ou Fonction non définie.
Après avoir cherché, je sèche complètement sur ce problème. Pouvez-vous m'aider ?

[EngueEngue]

Fous des s à tes sheets mon ami

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
Sub TraitementBrutSansNonSecu()
 
Dim i As Integer
Dim j As Integer
 
j = 2
Sheets("Brut_NonSecu").Range("1") = Sheets("Brut").Range("1")
For i = 2 To 189
 If Sheets("Brut").Range("F" & i) <> "PAS SECU" Then
  Sheets("Brut_NonSecu").Range(j) = Sheets("Brut").Range(i)
  j = j + 1
 End If
Next
 
End Sub

[Invité]

Bonjour,

Pour compléter, prenez l'habitude de mettre Option Explicit en haut de chacun de vos modules et de compiler vos procédures avant de les lancer (menu Débogage dans le menu VBA).

Option Explicit vous forcera à déclarer vos variables. La compilation vous indiquera si le code contient des erreurs rédhibitoires. Attention : Le compilateur ne voit pas tout, mais c'est déjà bien si vous avez franchi cette étape.

Vous pouvez régler votre VBA pour avoir Option Explicit par défaut.

Cordialement.

[EngueEngue]

L'option explicit va aider à trouver si un sub ou une fonction ne sont pas définies ?

[Invité]

Si vous lisez bien ce que j'ai écrit :

"Option Explicit vous forcera à déclarer vos variables." Dans le cas présent, pas de problème.

Le compilateur se serait arrêté sur Sheet, il aurait donc pû détecter le problème avant de lancer la procédure.

Il s'agit simplement d'un conseil pour prendre une habitude qui permet de gagner du temps.

Cordialement.

[EngueEngue]

Même sans option explicit ça le fait!

[el_slapper]

Si on a pas l'habitude de compiler avant de tester, la compilation - et donc le compte-rendu d'erreur - aura lieu à l'execution.

ça ne rend pas l'option explicit inutile(je l'active toujours), mais dans ce cas précis, bof.

[EngueEngue]

Agree

[DSE76]

J'ai corrigé la faute mais un autre problème vient d'apparaitre. Le problème est que le compilateur n'est franchement pas explicite. Il s'agit d'une erreur d’application ou objet à cette ligne :

Code :

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

1
2
 
Sheets("Brut_NonSecu").Range("1") = Sheets("Brut").Range("1")

Bonjour,

Pour compléter, prenez l'habitude de mettre Option Explicit en haut de chacun de vos modules et de compiler vos procédures avant de les lancer (menu Débogage dans le menu VBA).

Option Explicit vous forcera à déclarer vos variables. La compilation vous indiquera si le code contient des erreurs rédhibitoires. Attention : Le compilateur ne voit pas tout, mais c'est déjà bien si vous avez franchi cette étape.

Vous pouvez régler votre VBA pour avoir Option Explicit par défaut.

Cordialement.

Cette Option Explicit, où dois-je la mettre ? Avant le Sub ?

[Invité]

Cette Option Explicit, où dois-je la mettre ? Avant le Sub ?

Tout en haut du module, c'est la première ligne.


Quant à votre problème, une référence de cellule : c'est une lettre (ou un groupe de lettres) et un nombre pour une notation Range comme ci-dessous :

Code :

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

Sheets("Brut_NonSecu").Range("A1") = Sheets("Brut").Range("A1")

Cordialement.

[DSE76]

Bon, pas d'erreur de compilation. En revanche, il y a toujours cette erreur dont j'ai parlé dans mon deuxième message.

[EngueEngue]

Vérifie tes ranges... C'est les coordonnées..

Code :

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

1
2
3
4
Sheets("Brut_NonSecu").Range("CHANGER") = Sheets("Brut").Range("CHANGER")
For i = 2 To 189
 If Sheets("Brut").Range("F" & i) <> "PAS SECU" Then
  Sheets("Brut_NonSecu").Range(VHANGER) = Sheets("Brut").Range(CHANGER)

[DSE76]

En fait, je voulais copier la ligne correspondante.
Edit :
Réglé ! J'ai du faire la copie ligne par ligne (ce qui est bien lourd). Réglé maintenant !