Sélection onglet

[koyot3]

Bonjour a tous

Je travaille actuellement sur un fichier avec plusieurs onglets. Malheureusement je n'arrive pas à récupérer la valeur d'un onglet pour la mettre sur un aute.. voici un bout de code

Dim i As Integer
Dim vide As Boolean
i = 2
vide = False
Do While vide = False
    If IsEmpty(Sheets("Extract").Cells(i, 1)) Then 'si fin du tableau
        vide = True
    Else
        If Sheets("Extract").Cells(i, 1) = 95724602 Then
            Sheets("INV HSC").Cells(7, 9) = Sheets("Extract").Cells(i, 2)
        End If
        
        
        i = i + 1
    End If
Loop

le probleme vient de Sheets("INV HSC"), il me met suscript out of range

quelqu'un aurait-il une suggestion ?
merci d'avance

 

[Roland_M]

Re : Sélection onglet

bonsoir

je viens d'essayer ce bout de code et apparemment cela fonctionne très bien !?
peut être est-ce dû à une autre partie du code ici non présent !?

Roland