problème de macro

[chinel]

Salut tout le monde !

voici mon code :
macro1
Sub test()
Dim rng As Range
Dim c As Range
Dim mot As String
mot = InputBox("qui?") & "*"
Set rng = Sheets("Planning perso.").Range("A8:G13")
For Each c In rng
If Not IsEmpty(c) And Not c Like mot Then c.Font.ColorIndex = 2
Next
End Sub
macro2
Sub Affiche_Tout()
Dim rng As Range
Set rng = Sheets("Planning perso.").Range("A8:g13")
rng.Font.ColorIndex = 0
End Sub

j'ai trouver ceci sur le forum, c'est super mais j'ai un problème quand je mets les données l'une en dessous de l'autre car j'ai des données qui doivent rester visibles
est il possible de faire la macro en sautant des lignes ?

style comme ceci pr exemple :
macro 1
Sub test()
Dim rng As Range
Dim c As Range
Dim mot As String
mot = InputBox("qui?") & "*"
Set rng = Sheets("Planning perso.").Range("A8:G13")
Set rng = Sheets("Planning perso.").Range("A15:F22")
For Each c In rng
If Not IsEmpty(c) And Not c Like mot Then c.Font.ColorIndex = 2
Next
End Sub
macro 2
Sub Affiche_Tout()
Dim rng As Range
Set rng = Sheets("Planning perso.").Range("A8:g13")
Set rng = Sheets("Planning perso.").Range("A15:F22")
rng.Font.ColorIndex = 0
End Sub


merci de votre aide !!!

 

[skoobi]

Re : problème de macro

Salut tout le monde !

voici mon code :
macro1
Sub test()
Dim rng As Range
Dim c As Range
Dim mot As String
mot = InputBox("qui?") & "*"
Set rng = Sheets("Planning perso.").Range("A8:G13")
For Each c In rng
If Not IsEmpty(c) And Not c Like mot Then c.Font.ColorIndex = 2
Next
End Sub
macro2
Sub Affiche_Tout()
Dim rng As Range
Set rng = Sheets("Planning perso.").Range("A8:g13")
rng.Font.ColorIndex = 0
End Sub

j'ai trouver ceci sur le forum, c'est super mais j'ai un problème quand je mets les données l'une en dessous de l'autre car j'ai des données qui doivent rester visibles
est il possible de faire la macro en sautant des lignes ?

style comme ceci pr exemple :
macro 1
Sub test()
Dim rng As Range
Dim c As Range
Dim mot As String
mot = InputBox("qui?") & "*"
Set rng = Sheets("Planning perso.").Range("A8:G13")
Set rng = Sheets("Planning perso.").Range("A15:F22")
For Each c In rng
If Not IsEmpty(c) And Not c Like mot Then c.Font.ColorIndex = 2
Next
End Sub
macro 2
Sub Affiche_Tout()
Dim rng As Range
Set rng = Sheets("Planning perso.").Range("A8:g13")
Set rng = Sheets("Planning perso.").Range("A15:F22")
rng.Font.ColorIndex = 0
End Sub


merci de votre aide !!!

Bonjour,
dans ce que tu viens de modifier, déclarer la variable "rng" 2 fois va annuler la 1ere déclaration (en gras).
Que veux-tu dire par sauter des lignes? utiliser "goto", c'est déconseillé.
Si tu nous envoie le fichier en disant ce que tu veux on pourra mieux t'aider.
A+

 

[chinel]

Re : problème de macro

ok merci voici mon fichier !
j'ai fais un planning avec dedans des prénoms pour savoir qui travail et qui travail ou
je voudrais rechercher une personne dans mon planning avec ses dates de travail pour pouvoir imprimer seulement cette personne et puis rechercher une autre personne ainsi de suite ... !

merci de ton attention !

 

[Staple1600]

Re : problème de macro

Bonsoir


Tiens ca me rappelle quelquechose ...


Plus exactement ceci :https://www.excel-downloads.com/threads/macro-cherche.82027/


Ton fichier a subi une cure d'amaigrissement (lol)

 

[chinel]

Re : problème de macro

Salut stapel1600, je sais que m'a reconnu mais je suis toujours à la recherche je sais que tu peux m'aider !
j'ai recherché à gauche et droite mais pas de succès !

peuxtu encore faire quelques chose pour moi ?

merci !

 

[Staple1600]

Re : problème de macro

Re


Sur quelle feuille?


Planning Perso ou Calendrier?

La macro test permet bien de ne faire appraitre que le nom recherché non?

 

[chinel]

Re : problème de macro

Pourquoi pas sur les deux !

je sais que tu as raison elle fonctionne bien la macro mais si je mets les données l'une à côté de l'autre exemple:

lundi/mardi/mercerdi/jeudi/vendredi/samedi/dimanche
01/10/07/02/10/07 ...
Denise /Patricia ...

dans ce cas elle va bien !!!
mais si je mets comme ça:
lundi
01/10/07
Denise
mardi
02/10/07

elle fonctionne aussi mais j'ai lundi et la date qui devient (invisible)
merci

 

[Staple1600]

Re : problème de macro

Re


Voir le fichier modifié

 

[chinel]

Re : problème de macro

trop fort !!! je ne sais pas quoi dire d'autre !


merci beaucoup !