Moidification d'une varaible

[br44]

Bonjour à tout le forum ,

Voilà j'espère que vous pourrez résoudre se petit problème de variable .

j'ai voulue modifier cette variable:

'Declare la Variable Mois
  Dim Mois As String

'Définit la varible Mois
  Mois = ActiveSheet.Range("C3").Value

Pour écrire la variable suivante :

Set MaPlage =[COLOR="Red"] Sheets(Mois)[/COLOR].Range("A4:A" & Range("A65536").End(xlUp).Row)

Seulement la variable Mois fonctionne sur une cellule qui change de valeur .

Je voudrais savoir si il est possible de modifier la variable Mois en fonction d'une plage de cellule fixe correspondant aux entêtes des colonnes de mon tableau ?

Voici la plage concernée :

1) Sheets("Saisie1").range("P9") = "Sheets("JANVIER")
2) " " "" " ("Y9")= "Sheets("FEVRIER")
3) " " "" " ("AH9)= "Sheets("MARS")

Comme vous pouvez le voir mes entêtes de colonnes reprennent le noms des feuilles mensuelles.

J'ai écris cette macro pour pouvoir renvoyer les informations de la feuilles ("SAISIE1")vers les autres feuilles du classeur .

Voici ma macro:

Private Sub CommandButton2_Click() 'Bouton "ENREGISTRER"
'Déclare la variable Mois
  Dim Mois As String
'Déclare la variable P et B
  Dim P As Range
  Dim B As String
  Dim C As Range
'Définit la variable B
   B = NomClient.Value
'Définit la variable Mois
   Mois = ActiveSheet.Range("P9,Y9,AH9").Value[COLOR="Magenta"] ***** ça bloc ici[/COLOR]
'Définit la variable P
  Set P = Sheets(Mois).Range("B8:B" & Range("B65536").End(xlUp).Row)

'Je sèlectionne la feuille de départ
For Each C In P
'Définit la condition de la plage C
If C.Value = B Then
   
    With Sheets("SAISIE1")
         .Range("B" & Lig).Copy
        C.Offset(0, 20).PasteSpecial
    End With

 End If
Next
End Sub

je joint en plus mon fichier pour que se soit plus claire .

Vous remerciant tous par avances je vous dis à plus sur se fil .Amicalement BR44

 

[br44]

Re : Moidification d'une varaible

Bonsoir Youki(bj) , le forum

Merci pour ton dernier message et excuses-moi pour le retard mis à te répondre.

Suite à un impératif professionnel je vais devoir retarde la mise en post de mon fichier . De plus on ma communiquer des informations supplémentaires qui vont m'obliger à faire des modifications dans mon programme .

Je présent donc toutes mes excuses , ainsi que mes remerciement à tout le forum pour l'aide que vous m'avez apportez jusqu'ici .

Je vous tiens au courant des que possible et reviens avec un fichier le plus complet possible . Amicalement à tous BR44