Discussion :

[kalocou]

Bonjour à toutes et a tous
Je rencontre un problème avec with
J'ai une sub qui est appelée suite à un click sur un usf.
Je dois modifier 2 pages de facon identiques et plutot que d'ecrire 2 fois le code j'ai écrit

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
Sub insert_controles()
'dim des variables
texte_lbdis = usf2.lbdis
der_col = Cells(3, Cells.Columns.Count).End(xlToLeft).Column 'derniere colonne
der_el = Range("a1").End(xlDown).Row ' indice dernier eleve
cont_maj = Sheets("feuil1").Range("l2") ' indice des controles
Dim sh As Worksheet
nf = "Comment"
'maj indice controle
cont_maj = cont_maj + 1
For Each sh In ThisWorkbook.Worksheets
    If sh.Name = (mat) & (tr) Or sh.Name = (nf) & (tr) Then
        With sh
'detection de "c" 1ere colonne de la discipline active
 
With sh.Range(Cells(3, 2), Cells(3, der_col))
  Set Cible = .Find(texte_lbdis, lookat:=xlWhole)
  End With
   'Cible.Select
c = Cible.Column

le code à la suite fonctionne je l'ai testé maintes fois.
Par contre lors de la boucle lorsque la 1ere sh est appelée tout ce passe bien.
Mais lorsque arrive le tour de la 2ème ca plante sur la ligne 16 " la méthode range de l'objet worksheet a échoué".
Avant de lancer la sub la 1ere page est la page active.
si en debogage pas à pas j'active la 2éme le code s'effectue alors normalement. (je ne sais pas si je suis assez clair !)
si je supprime le sh. devant range (cells ....) le code se répéte 2 fois sur la feuille qui est active
Elle est où l'erreur ?!
Merci de votre aide par avance

[Jean-Philippe André]

Salut,

quand tu passes par une worksheet, il faut egalement le faire dans le Range

Code :

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

With sh.Range(Cells(3, 2), Cells(3, der_col))

devant devenir

Code :

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

With sh.Range(Sh.Cells(3, 2), Sh.Cells(3, der_col))

[BENNASR]

bonsoir
je suis aussi débutant mais je crois que lors de la procédure :

Code :

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

For Each sh In ThisWorkbook.Worksheets

il faut :

Code :

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

next sh

[kalocou]

merci à tous les 2 pour cette réponse rapide.
Pour BENNASR le next y st mais un peu plus loin;
Pour JeanPhilippe; Je m'en vais essayer tout de suite et sica marche ce dont je ne doute point je ne manquerai pas de cliquer sur "Résolu" !!!
Encore MERCI

Merci Philippe
C'est vrai qu'au début je n'avais mis que Range ....
et pas le . devant
Je vais commencer par là et vous tenir au courant dans la soirée.
Pour les with et les end with pas de souci le compte y est plus loin(je n'ai mis que le début pour pas alourdir)
Merci encore.

[Philippe Tulliez]

Bonjour Kalocou,
Attention de tenir compte de la remarque de Jean-Philippe (l'objet Cells doit être précédé de point).
Je ne l'avais pas vu car je répond pendant que je donne des exercices

[kalocou]

rebonjour Philippe
J'allais justement te le demander car le.range seul donne la même erreur!
Je dois sortir j'essaierai en rentrant.
Encore un GRAND MERCI!

[kalocou]

Effectivement avec.range(.cells...., tout fonctionne
Merci Jean Phi & Philippe

[Philippe Tulliez]

Bonjour,
Ligne 13, tu as un With qui n'a pas de End With ou bien c'est celui de la ligne 16 qui n'en a pas
Le With de la ligne 16 devrait en toute logique ne pas répéter l'objet sh mais tout simplement .Range(Cells(3, 2), Cells(3, der_col))
Il y a peut-être d'autres erreurs que je n'aurais pas vu.