Problème de variable

[tiow]

Bonjour à toutes et à tous,

J'ai longuement parcouru ce forum qui m'a permit de bien débuter avec vba (=trouver plein de fonction utiles) seulement, aujourd'hui j'ai un petit souci (et j'espère que vous pourrez m'aider).
J'ai écrit dans une macro:
LigneJour = "=MATCH(""Lundi"",C2:C2,0)"
Qui me permet de trouvé dans quelle ligne se trouve "lundi".

Maintenant j'aimerai pouvoir faire quelque chose dans le style:
Cells(LigneJour,5) = "test"

Seulement cela me renvoie "incompatibilité de type".
Savez vous comment faire pour que dans ma variable "LigneJour" j'ai le resultat, par exemple 44, et non la formule, pour que je puisse l'insérer à "Cells(,)"

Merci de votre aide,

Thibaut

 

[Turbo]

Re : Problème de variable

Salut

Par exemple dans ta cellule A1 ( tu es libre de choisir bien sur ) tu tapes ta formule : =MATCH(""Lundi"",C2:C2,0)
Puis dans ta macro tu écris LigneJour = Cells(1 ,1).Value

Dis nous

 

[tiow]

Re : Problème de variable

Salut Turbo,

En mettant d'abord ma formule ,=equiv("lundi";B:B;,0), en A1 puis en faisant dans la macro
LigneJour = Cells(1 ,1).Value
je ne peux toujours pas utiliser la variable "LigneJour", la ligne

Cells(LigneJour, x) = "test"

me renvoie toujours une incompatibilité de type ...

En fait, ce que j'essaie de faire, c'est qu'a partir d'une liste de jour (en ligne) et une liste de personne (en colonne), je puisse écrire quelque chose dans cette intersection. Ce qui me donnerai Cells(LigneJour, ColonnePers) = "quelquechose".

Merci encore,

Thibaut.

 

[Turbo]

Re : Problème de variable

Re

Le mieux ça serait que tu nous envoie ton fichier excel zippé ( pense a l'uploader ) comme ça le premier qui passera par la t'apporteras les modifications nécessaire .

 

[gilbert_RGI]

Re : Problème de variable

Bonjour
essayez ce code

Sub essai()
Sheets(1).Select
Columns("C:C").Select
Selection.Find(What:="Lundi", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Cells(ActiveCell.Row, 5).Value = "test"
End Sub

Cordialement

RGI

 

[tiow]

Re : Problème de variable

Ok Turbo

J'ai donc joint mon fichier simplifié


edit: Slt Gilbert, je vais essayez ton code, merci

 

[gilbert_RGI]

Re : Problème de variable

pour tous les lundis de la liste

Sub essai2()
With Worksheets(1).Range("c1:c5000")
Set c = .Find(What:="Lundi", LookIn:=xlValues)
If Not c Is Nothing Then
PremAdresse = c.Address
Do
c.Offset(0, 2).Value = "test"
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> PremAdresse
End If
End With

End Sub



Cdlt

RGI

 

[tiow]

Re : Problème de variable

Merci Gilbert,
Je me suis mal exprimé, car en effet, tu as répondu à ma question de pouvoir faire quelque chose dans le genre de :

Cells(LigneJour,5) = "test"

Mais j'avais pris cette exemple pour exposer mon problème de variable .. Car avec ta méthode je ne crois pas arriver à faire quelque chose du genre

Cells(LigneJour,ColPers)

ou alors je n'ai pas tous compris ..

C'est pour cela que j'aimerai savoir s'il est possible d'intégrer ma variable "ligneJour" qui dans mon code qui VBA contient

Select Case BoxJour
Case "Lundi"
LigneJour = "=MATCH(""Lundi"",C2:C2,0)"
...
Cells(LigneJour,ColPers)

Ou si je dois essayer de faire autrement, ou si j'ai mal compris ton exemple ?

Merci,
Thibaut.

 

[ninbihan]

Re : Problème de variable

Bonjour à tous,


Je ne sais pas si j'ai bien compris, à tester:



Bonne journée,

Ninbihan

 

[tiow]

Re : Problème de variable

Merci beaucoup ninbihan,

Le code que tu m'as donné fonctionne tres bien pour le petit exemple que j'ai fourni .. seulement si pers2 et pers1 sont interchangés.. cela ne fonctionne plus.
Pour les jours de la semaine, cela ne devrait pas posé de problème puisqu'il change rarement d'ordre, cependant (c'est tjs pareil avec ceux qui posent les question ), j'ai plusieurs lignes par jours.
Et j'ai comme l'impression que cela ne devient plus possible d'écrire quelque chose à l'intersection du jour et de la personne + la 3eme condition (matin, aprem, nuit). J'ai comme l'impression d'avoir mal expliqué mon problème dès le début ..

Si tu arrives à comprendre ce que je souhaite, Penses tu qu'avec ta fonction je puisse mettre 3 conditions un peu comme dans mon exemple.
Ci joint mon exemple peut être compréhensible

Merci beaucoup de ton aide,
Thibaut.

 

[tiow]

Re : Problème de variable

Re bonjour à tous,

Même si je cherche à contourner un peu le problème, pouvez vous me dire s'il est "tout simplement" possible de récupérer la valeur numérique de LigneJour, quand j'écrit en vba:

LigneJour = "=MATCH(""Lundi"",C2:C2,0)"

Car pour excel LigneJour vaut toujours "=MATCH(""Lundi"",C2:C2,0)" et non son résultat renvoyé dans une cellule ...

Merci,
Thibaut

 

[Turbo]

Re : Problème de variable

Salut a tous

Ça reste du bidouillage mais ça marche pour faire ce que tu souhaites faire ( enfin si j'ai compris ^^).

 

[tiow]

Re : Problème de variable

Merci beaucoup Turbo,

C'est a peu pres exactement ce que je voulais faire.
Ton

BoxJour.ListIndex * 3

m'aide beaucoup, j'avais même pas pensé à multiplier par trois pour en avoir trois fois plus


Bonne journée à tous et encore merci,

Thibaut

 

[Turbo]

Re : Problème de variable

Re

C'est a peu pres exactement ce que je voulais faire.

C'est si clair

De rien, moi aussi je demande de l'aide aux autres, donc n'hésite pas si tu as encore besoin d'aide