Valeur d'une cellule d'une feuille excel

Bonjour,

j'ai une question dont la réponse est probablement très simple mais comme je suis débutante en vba, ça ne me saute pas aux yeux.
Je suis en train de développer un module.
Dans ce module, j'ai besoin de  récupérer la valeur d'une cellule excel contenu dans une feuille du classeur. Cette feuille n'est pas active lors du traitement.
J'ai tout simplement fait :

source = Sheets("feuil1").Range("F" & x).Value

Cependant lorsque que j'exécute le traitement, j'ai une erreur : 
   Erreur d'exécution '9'
   L'indice n'appartient pas à la sélection

Pouvez-vous m'aider ?

Merci d'avance!

Salut,
Est ce que la feuille nommée feuil1 (et non Feuil1) existe?
Est ce que x à une valeur correcte?


@+: Ju£i€n
Pensez: Réponse acceptée

J'ai mis "feuil1" comme exemple mais dans mon module j'ai mis le nom de la feuille existante et x a bien une valeur correcte
C'est pour ça que je ne comprends pas!
Où aurais je commis une erreur ,

Salut,
Dans ce cas donne un peu plus de code...

@+: Ju£i€n
Pensez: Réponse acceptée

Bonjour,
La ligne de code est Ok mais que vaut x au moment de son utilisation ?

JML
 Partageons notre savoir et nos acquis

Essaye de découper ton instruction et utilise le pas-à-pas pour tester tes valeurs en mettant un point d'arret (ou une messageBox). Je tenterais quelque chose du genre  :

Feuil1.Range("F" & x).Select
source = ActiveCell.Value
MsgBox source

Le découpage semble marcher mails il y a encore une petite erreur :
La méthode Select de la classe Range a échoué.

C'est curieux car au début ça a marché et maintenant ça me fait cette erreur sans avoir rien modifié; l'undice x a toujours une valeur correcte.

Au fait pourquoi tu utilise 'x' ("F" & x) ? Cette instruction est contenue dans une boucle ?

Si tu considère que "l'undice x a toujours une valeur correcte", le système, d'après le message d'erruer, semble considérer différemment
A mon avis si tu ne donnes pas plus de code et entre autre celui ou "x" prend une valeur on aura du mal à t'aider

JML
 Partageons notre savoir et nos acquis

Voila le code de mon module :

Sub DateDebutFais()
    Dim x As Integer
    Dim source1 As String
    Dim marge As Integer
    'Dim dateJour As Date
   
    marge = 10 'Paramétrages
    For x = 6 To 31
        Feuil3.Range("F" & x).Select
        source1 = ActiveCell.Value
        'source1 = Application.Sheets("Etats de Pilotage").Range("F" & x).Value
        If InStr(source1, ThisWorkbook.source) > 0 Then
            Range("AC" & x).Value = Range("AC" & x).Value + marge
        End If
    Next x
End Sub

Le programme plante des le debut! quand x vaut 6