Bonjour
Je souhaite écrire en VBA :
Si cette cellule cellule contient Toto, alors...
Je ne me souviens plus de la syntaxe, si ce n'est de like.
Je vous remercie
Didier
-- meilleures salutations françois sabatier "MichDenis" a écrit dans le message de news: %
| faut toujours repasser derrière....
C'est mieux d'être dernière pour repasser !
;-))
!-))))
jps
--
meilleures salutations
françois sabatier
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23Ok1qQDfHHA.928@TK2MSFTNGP02.phx.gbl...
-- meilleures salutations françois sabatier "MichDenis" a écrit dans le message de news: %
| faut toujours repasser derrière....
C'est mieux d'être dernière pour repasser !
;-))
arfpower
Le mercredi 11 Avril 2007 à 12:16 par Didier NOVARIN :
Bonjour Je souhaite écrire en VBA : Si cette cellule cellule contient Toto, alors... Je ne me souviens plus de la syntaxe, si ce n'est de like. Je vous remercie Didier
Bonjour!
De la meme maniere je souhaite vérifier que la cellule C38 de ma feuille 1 contenant une liste de mots, a la valeur "valeur1" ou "valeur2" pour, selon cette valeur effectuer un ciblage sur la cellule H4 ou H12 sur la feuille 5 (valeur cible I1, cellule variable : F1). Le code suivant présente-t-il quelque chose de faux? Sub cible() If UCase(Range("C38")) Like "*Valeur1*" Then Sheets("Feuil5").Select Range("H4").Select Range("H4").GoalSeek Goal:=Range("I1").Value, ChangingCell:=Range("F1") Sheets("Feuil1").Select Else Sheets("Feuil5").Select Range("H12").Select Range("H12").GoalSeek Goal:=Range("I1").Value, ChangingCell:=Range("F1") Sheets("Feuil1").Select End If
Le mercredi 11 Avril 2007 à 12:16 par Didier NOVARIN :
Bonjour
Je souhaite écrire en VBA :
Si cette cellule cellule contient Toto, alors...
Je ne me souviens plus de la syntaxe, si ce n'est de like.
Je vous remercie
Didier
Bonjour!
De la meme maniere je souhaite vérifier que la cellule C38 de ma feuille 1 contenant une liste de mots, a la valeur "valeur1" ou "valeur2" pour, selon cette valeur effectuer un ciblage sur la cellule H4 ou H12 sur la feuille 5 (valeur cible I1, cellule variable : F1).
Le code suivant présente-t-il quelque chose de faux?
Sub cible()
If UCase(Range("C38")) Like "*Valeur1*" Then
Sheets("Feuil5").Select
Range("H4").Select
Range("H4").GoalSeek Goal:=Range("I1").Value, ChangingCell:=Range("F1")
Sheets("Feuil1").Select
Else
Sheets("Feuil5").Select
Range("H12").Select
Range("H12").GoalSeek Goal:=Range("I1").Value, ChangingCell:=Range("F1")
Sheets("Feuil1").Select
End If
Le mercredi 11 Avril 2007 à 12:16 par Didier NOVARIN :
Bonjour Je souhaite écrire en VBA : Si cette cellule cellule contient Toto, alors... Je ne me souviens plus de la syntaxe, si ce n'est de like. Je vous remercie Didier
Bonjour!
De la meme maniere je souhaite vérifier que la cellule C38 de ma feuille 1 contenant une liste de mots, a la valeur "valeur1" ou "valeur2" pour, selon cette valeur effectuer un ciblage sur la cellule H4 ou H12 sur la feuille 5 (valeur cible I1, cellule variable : F1). Le code suivant présente-t-il quelque chose de faux? Sub cible() If UCase(Range("C38")) Like "*Valeur1*" Then Sheets("Feuil5").Select Range("H4").Select Range("H4").GoalSeek Goal:=Range("I1").Value, ChangingCell:=Range("F1") Sheets("Feuil1").Select Else Sheets("Feuil5").Select Range("H12").Select Range("H12").GoalSeek Goal:=Range("I1").Value, ChangingCell:=Range("F1") Sheets("Feuil1").Select End If
