Discussion :

[ballantine's]

En faite je n'ai donné qu'une partie de l'iceberg...MoisInt prend bien la valeur 12 puisqu'on est en décembre

Code :

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

1
2
3
4
5
6
 
If TabMoisOnglet(MoisInt) = wSy.Worksheets(i).Name Then
            Set sSy = wSy.Worksheets(i)
            Set rSy = sSy.Range("A1:Z100")
            Exit Do
        End If

wSy.Worksheets(i).Name est null d'après le débogage pas à pas...Mais je ne vois pas pourquoi

[Pierre Fauconnier]

De toutes façons, je ne comprends pas à quoi ta boucle Do While te sert

Tu peux remplacer ton bloc Do while... End Do par

Code :

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

1
2
set sSy = wSy.worksheets(TabMoisOnglet(MoisInt))
Set rSy = sSy.Range("A1:Z100")

Point de vue débogage, ce sera déjà plus simple. Essaye cela et dis-nous quoi...

[Pierre Fauconnier]

Je pense aussi qu'il y a moyen d'optimiser cette recherche, si tu nous expliques ce que tu souhaites réaliser.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    'recherche des lignes rc et mob à compléter
    ligne_cibleRc = "1"
    colonne_jour = "2"
    Do Until rSy(ligne_cibleRc, colonne_jour).Value = JourInt
        ligne_cibleRc = ligne_cibleRc + 1
    Loop
 
    ligne_cibleMob = ligne_cibleRc + 1
    Do Until rSy(ligne_cibleMob, colonne_jour).Value = JourInt
        ligne_cibleMob = ligne_cibleMob + 1
    Loop

[ballantine's]

Je crois que j'ai trouvé il y avait un espace "caché" en bout de chaine concernant le nom de la feuille...J'ai demandé au propriétaire du fichier de vérifier

[Pierre Fauconnier]

Ca, ça confirme l'intuition de Frédéric qui doutait du nom du fichier .

Tu avais aussi le problème de la boucle < au lieu de <=, avec de toute façon une boucle inutile.

Tu as encore un "problème" avec des numéros de ligne et de colonne que tu passes en string, et une recherche optimisable une fois la bonne ligne trouvée...

Tous ces petits "défauts" amènent inévitablement des difficultés à trouver ce qui ne tourne pas...

A toi d'optimiser si tu souhaites utiliser un code qui tourne bien...

Bonne continuation.