Bonjour le forum,
Alors voilà, j'ai un problème dans mon code, je veux exporter le texte d'un textbox vers une cellule (qui en amont est recherchée par rapport à la valeur d'un textbox d'un autre userform) Alors j'ai essayé de tester la validité de mon code et voici mes premières conclusions :
Avec ce code :
Ca ne fonctionne pas il me donne l'erreur d'execution 1004,
Je teste avec une cellule bien définie avec ce code :
Ca marche. Mais ce n'est bien entendu pas ce que je veux. Ce test m'a permis de savoir si ma valeur de cellule cherché est bien la bonne, ce qui est le cas. Le problème se situe plus que probablement sur cette ligne :
Voilà le problème, merci beaucoup de votre aide. Eric
Alors voilà, j'ai un problème dans mon code, je veux exporter le texte d'un textbox vers une cellule (qui en amont est recherchée par rapport à la valeur d'un textbox d'un autre userform) Alors j'ai essayé de tester la validité de mon code et voici mes premières conclusions :
Avec ce code :
Code:
Private Sub VALID_Click()
Dim celluletrouvee As Range
numéro = Userform1.Label3.Caption
Set celluletrouvee = Sheets("Structure").Range("E:E").Find(numéro, lookat:=xlWhole)
Sheets("Structure").Range(celluletrouvee, celluletrouvee).Value = pièces.T2.Text
End sub
Ca ne fonctionne pas il me donne l'erreur d'execution 1004,
Je teste avec une cellule bien définie avec ce code :
Code:
Private Sub VALID_Click()
Dim celluletrouvee As Range
numéro = Userform1.Label3.Caption
Set celluletrouvee = Sheets("Structure").Range("E:E").Find(numéro, lookat:=xlWhole)
Sheets("Structure").Range("O1").Value = pièces.T2.Text
End sub
Ca marche. Mais ce n'est bien entendu pas ce que je veux. Ce test m'a permis de savoir si ma valeur de cellule cherché est bien la bonne, ce qui est le cas. Le problème se situe plus que probablement sur cette ligne :
Code:
Sheets("Structure").Range(celluletrouvee, celluletrouvee).Value = pièces.T2.Text
Voilà le problème, merci beaucoup de votre aide. Eric