VBA

[steph71]

Bonsoir à tous

Pour traduire le besoin suivant en VBA :

Dans une feuille EXCEL
si B10 = 'AG centraliée' et
Si E10 = 'Tenue de bureau'
Alors les cellules C16 et C17 = 0

Sinon les cellules C16 et C17 = 'à saisir'


j'ai saisi le code suivant :

If Range('B10') = 'AG centralisée' And Range('E5') = 'Tenue de bureau' Then
Range('C16:C17').Value = 0
Else
Range('C16:C17').Value = 'à saisir'
End If


PROBLEME
je ne peux plus rien saisir d'autre en C16 et C17 puisque la macro ci-dessus s'éxécute.
Comment faire pour que je puisse effetivement saisir par la suite une donnée à la place de 'à saisir' en cellule C16 et C17

Merci d'avance pour votre aide

et bonne soirée

 

[Bloody]

salut
je ne suis pas certain mais essayes
Range('C16:C17').Value = ''
A+

 

[steph71]

Désolé mais cela ne marche toujours pas

 

[tontoncarton]

steph71 !!!!! cette fois y'en as marre !! tu va pas prendre tout les post pour la meme question !!! :angry:

 

[steph71]

Je ne compte pas prendre tous les post pour la même question
je n'ai pas eu de réponse à ma question alors je pensais qu'en créant un nouveau fil, cela me permettrait d'attirer l'intention sur mon pb.
Mes excuses auprès de l'ensemble des membres.
Bonne journée

 

[steph71]

Une âme charitable pourrait elle se pencher sur mon problème.
Je cherche, je cherche, une solution sans succès.
Merci d'avance
Bonne journée

 

[tontoncarton]

re steph 71

bon , tu as un fichier a me filer pour que je regarde car je vois pas bien ou est le probleme ?

@+

 

[steph71]

Voilà un fichier exposant simplement mon problème et ma demande
merci d'avance pour l'aide
Bonne journée [file name=Classeur1_20050823134958.zip size=6312]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050823134958.zip[/file]

 

[tontoncarton]

re steph ,

Pourkoi tu mets ton code dans worsheetschange ?? si tu le met derriere un bouton par exemple le probleme ne se posera plus

@ +

 

[STEPH71]

Oui, mais dans mon projet, j'ai déjà crée quelques boutons et je ne voudrais pas que les utilisateurs passent leur temps à cliquer sur des boutons
je préférerais leur faciliter la saisie de façon intuitive au fur et à mesure de la saisie

 

[steph71]

Bonsoir à tous

Quelqu'un a t il une solution à me proposer ???
Je dois soumettre pour recettage mon appli demain
Merci d'avance

 

[Hervé]

Bonjour tout le monde

Essaye comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range('b1:b2')) Is Nothing Then Exit Sub

If Range('B1') = 'TOTO' And Range('B2') = 'TATA' Then
    Range('B3:B4').Value = 0
Else
    Range('B3:B4').Value = 'à saisir'
End If

End Sub

salut

 

[steph71]

Bonjour

comment adapter ce code si mes cellules de vérification ne sont pas B1 et B2 mais B10 et E5

merci d'avance
A+

 

[Hervé]

bonjour tout le monde

Essaye comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range('b10', 'e5')) Is Nothing Then Exit Sub

If Range('B10') = 'TOTO' And Range('e5') = 'TATA' Then

le reste est inchangé.

salut

Message édité par: herve, à: 26/08/2005 12:01