Problème de selection de cellule avec offset et

Bonjour ,

Je rencontre un problème avec "for each" qui ne fonctionne pas.

Voici la base de mon travail

Avec un useform qui est composé d'un formulaire, je sélectionne le moi et le jour .

moidebutbox = la combo box ou l'utilisateur selectionne le moi

jourdebutbox = la combo box ou l'utilisateur selectionne le jour

voici mon code:

Dim moi1
For Each moi1 In Range("Z12:OA12")
If moi1.Value = moidebutbox.Value Then
moi1.Select
End If
Next
ActiveCell.Offset(2, 0).Select
' Jusque ici tout va bien, le premier jour du mois en question a été selectionné
' jai également essayé avec Range(ActiveCell.offset(0,0), ActiveCell.Offset(0, 30))
For Each moi1 In Range(ActiveCell, ActiveCell.Offset(0, 30))
If moi1.Value = jourdebutbox.Value Then
moi1.Select
'Et là le curseur reste sur le premier du mois sans avoir bougé
End If
Next

voilà si vous pouviez m'expliquer pourquoi j'ai ce problème je vous en serais reconnaissant.

Merci d'avance

Parce que cette condition ne se vérifie jamais :

If moi1.Value = jourdebutbox.Value Then

Tu dois avoir un problème de formats...

bonjour,

peux-tu nous mettre ton fichier ?

voilà le fichier,

L'userform "easyway" correspond au bouton "Mode alternatif" que je suis en train d'éditer

pour pouvoir cliquer dessus il faut déverouiller le fichier en cliquant sur le cadenas (mpd: testmdp )

je suis en train d'éditer le bouton de validation de faut pas s'inquiéter si c'est brouillon et plein de fautes

Voilà sinon pour le format j'ai essayé de tout mettre en format texte mais rien n'y fait.

Merci d'avance

PS: j'ai du fractionner le fichier car c'était trop lourd pour le forum

Bonjour,

envoie une version de ton fichier avec les 3 premières lignes sur la page sur laquelle tu appliques ta macro.

voilà , tout ne marchera pas du coup mais le principal si.

pour l'instant je ne configure que la date du début (et faut le faire avec janvier)

du:

au:

la date "du" est configuré

sélectionne janvier et le 5 par exemple et fait valider

tu vera que ça sélectionne que le premier janvier.

il faut affecter la macro "shos" sur le bouton bleu pour afficher la forme je t'ai déjà tout préparé

Bonjour,

voici une proposition de correction.

ton problème vient d'une comparaison de texte avec des nombres. en ajoutant & "", je force un comparaison en mode texte.

j'ai également ajouté des exit for pour sortir de la boucle dès que le mois et le jour ont été trouvés, mais cela fonctionne sans sur ton fichier.

Private Sub CommandButton1_Click()Dim moi1
For Each moi1 In Range("a1:oa1")
If moi1.Value = moidebutbox.Value Then
moi1.Select
Exit For
End If
Next
ActiveCell.Offset(2, 0).Select
For Each moi1 In Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 30))
If moi1.Value & "" = jourdebutbox.Value Then
moi1.Select
Exit For
End If
Next
End Sub

D'accord.. je vois en fait le "" c'est comme si j'ajoutais un texte vide derrière ma variable pour forcer la comparaison en mode texte... décidément... je pète des câbles depuis tout à l'heure pour ce problème lol.

Merci beaucoup du coup de main , je viens d'essayer çà fonctionne