gestion d'un intputbox

Question

voila jvous explique la situation

qd jouvre mon classeur je dispose de 5 feuilles

DATA
DnTw
LnTw
Spec
TR

avec mes data que jrecup ds un dossier
je cr&#233;e des feuilles par rapport a mes 4 mod&#232;les DnTw,LnTw,Spec,TR

jinsere dc ds mon classeur des nouvelles feuilles
qui se nomme respectivement soit:

- A01,A02.......
- B01,B02.......
- C01,C02.......
- T01,T02.......

dc voila ya des champs ds ces feuilles qui sont tjs les meme suivant les &#233;tudes

par exemple jai cr&#233;er un bouton qui qd je clique dessus me demande grace a un inputbox
"Quel est le projet de votre &#233;tude?"

jai fait alors un pgr ki recherche la premi&#232;re lettre de chaque feuilles et attribue la valeur du message ds certaines cellule mais ca ne marche pas pkoi?

aider moi svp

c tp important

voici mon code
Sub config()
Dim ws As Worksheet



message = InputBox("Entrez l'objet de votre &#233;tude:", "Mon Programme")
'La ligne suivante arr&#234;te la proc&#233;dure si l'utilisateur 'clique sur "Annuler"
If message = "" Then Exit Sub
'La ligne suivante place la valeur saisie dans la cellule 'C3 de la feuille active
 
 For Each ws In ActiveWorkbook.Sheets
    Select Case UCase(Left$(ws.Name, 1))
       Case "A"
           Range("D3").Value = message
       Case "B"
          Range("D3").Value = message
      Case "C"
          Range("E3").Value = message
      Case "T"
         Range("E3").Value = message


    End Select
Next
end sub

valtrase · Answer

Lut avec ce code ta feuille active ne change pas !!!! tu utilises range en global donc sur ta feuille active. Essayes en forcant l'&#233;criture.
ex:
For Each ws In ActiveWorkbook.Sheets
    Select Case UCase(Left$(ws.Name, 1))
       Case "A"
           ws.Range("D3").Value = message
       Case "B"
          ws.Range("D3").Value = message
       Case "C"
          ws.Range("E3").Value = message
       Case "T"
         ws.Range("E3").Value = message
    End Select
Next

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Gestion d'un intputbox

1 réponse

Discussions similaires