Discussion :

[CristofMartins]

Bonjour,
J'ai crée une boucle qui va rechercher une valeur dans une plage excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
For Each cell In sht.Range("a5:z" & Range("a65536").End(xlUp).row)
 
        If cell.Value = "%%DATE%%" Then
            cell = UserForm1.TextBox_LibreFrei_Date
        End If
 
Next cell

Le résultat est :
La boucle s’arrête sur son premier teste en me disant qu'il y a une erreur 2042.

Quelqu'un aurait une idée?

[issoram]

Bonjour,

Ce n'est pas plutôt la valeur de ta TextBox que tu veux affecter à la cellule?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cell.Value = UserForm1.TextBox_LibreFrei_Date.Text

Cordialement.

[CristofMartins]

Salut,
Oui et non. Je m'explique.
Je fais un peu comme du "Publipostage"
Donc d'abord je reçoit les info's depuis un userbox et je doit les mettre dans un formualire qui est en excel.
Le but est que l'utilisateur puisse change ce forumulaire comme il veut donc, il faut que je fasse une sorte de publipostage.

Alors qu'est-ce que je fais, je recoit par ex. la date depuis la userform et je la met dans la cellule correspondante. Mais pour savoir quelle est la cellule j'utilise une valeur par défaut que la cellule a et je la remplace par la nouvelle valeur.

J'espere que tu ait compris.

2ème, le problème ce n'est pas la userform mais si la cellule, parce que quand ma boucle arrive dans cette cellule, elle m'indique que la cellule à une valeur de "Erreur 2042" .

Pour tant avant d'arriver a cette cellule, ma boucle à déjà fais le même truck avec le nom, le prenom, l'adresse et tout les reste du formulaire.