V
violaine
Guest
bonsoir
mon application qui permet de renvoyer des valeurs contenue dans des cellules d une feuille excel dans des textbox fonctionne seulement si mes cellules contienne une chaine de caractere par contre si c une chaine numerique mon application ne fonctionne plus or c est ce qu il me faut
je vous laisse mon code qui me permet de faire ceci
comment eviter cela
Dim Cell As Range ' Déclaration de Variable Object de Type Range (Plage de Cellule(s))
Dim Plage As Range ' Idem
Dim L As Long ' Déclaration de Variable de Type Numérique de -32,768 à 32,767
With Sheets("base cartouche&robot") ' La Feuille Cible "With" (tout ce qui suit avec un ".")
L = .Range("A65536").End(xlUp).Row ' On trouve la dernière cellule non vide
' en partant du bas de la colonne "A"
Set Plage = .Range("A10:A" & L) ' Définition dynamique de la Plage de Cellule par creation d'Objet (Set)
End With ' Fin de Avec
'Lancement d'un Boucle For Each (Pour Chaque Item Contenu dans une Collection)
For Each Cell In Plage 'Pour chaque Cellule dans la Plage donc ;-)
'Début de Condition SI.
'Si la Condition est Valeur de Cellule = Valeur de TextBox
If Cell.Value = TextBox1.Value Then
'Alors :
feuille_saisie_cartouche.reference_usinee = TextBox1.Value 'La TextBox2 prend la valeur de la Cellule trouvée (Cell)
feuille_saisie_cartouche.reference_brute = Cell.Offset(0, 2).Value 'La TextBox3 prend la Valeur de la celulle décalée de 0 Ligne et 1 Colonne
feuille_saisie_cartouche.code_mat = Cell.Offset(0, 3).Value
feuille_saisie_cartouche.plan_surv = Cell.Offset(0, 4).Value
feuille_saisie_cartouche.indice_pl = Cell.Offset(0, 5).Value
feuille_saisie_cartouche.indice_gam = Cell.Offset(0, 6).Value
feuille_saisie_cartouche.ComboBox1 = Cell.Offset(0, 7).Value
feuille_saisie_cartouche.ComboBox2 = Cell.Offset(0, 8).Value
'If Cell.Offset(0, 9).Value = "cu1" Then cu1.Value = True
feuille_saisie_cartouche.piece_code = Cell.Offset(0, 10).Value
feuille_saisie_cartouche.pince_1_reglage = Cell.Offset(0, 12).Value
feuille_saisie_cartouche.pince_2_reglage = Cell.Offset(0, 13).Value
feuille_saisie_cartouche.numero_enregistrement = Cell.Offset(0, 15).Value
feuille_saisie_cartouche.rep_date = Cell.Offset(0, 16).Value
feuille_saisie_cartouche.num_indice = Cell.Offset(0, 17).Value
feuille_saisie_cartouche.rep_par = Cell.Offset(0, 18).Value
feuille_saisie_cartouche.rep_designations = Cell.Offset(0, 19).Value
feuille_saisie_cartouche.rep_date_creation = Cell.Offset(0, 20).Value
feuille_saisie_cartouche.rep_emetteur = Cell.Offset(0, 21).Value
feuille_saisie_cartouche.rep_remarques = Cell.Offset(0, 22).Value
Exit For 'Sortie de la Boucle, car la condition est remplie
End If 'Fin de la Condition
'Passage à la Prochaine Cellule de la Plage (si on est pas Sorti pas Exit For)
Next Cell
mon application qui permet de renvoyer des valeurs contenue dans des cellules d une feuille excel dans des textbox fonctionne seulement si mes cellules contienne une chaine de caractere par contre si c une chaine numerique mon application ne fonctionne plus or c est ce qu il me faut
je vous laisse mon code qui me permet de faire ceci
comment eviter cela
Dim Cell As Range ' Déclaration de Variable Object de Type Range (Plage de Cellule(s))
Dim Plage As Range ' Idem
Dim L As Long ' Déclaration de Variable de Type Numérique de -32,768 à 32,767
With Sheets("base cartouche&robot") ' La Feuille Cible "With" (tout ce qui suit avec un ".")
L = .Range("A65536").End(xlUp).Row ' On trouve la dernière cellule non vide
' en partant du bas de la colonne "A"
Set Plage = .Range("A10:A" & L) ' Définition dynamique de la Plage de Cellule par creation d'Objet (Set)
End With ' Fin de Avec
'Lancement d'un Boucle For Each (Pour Chaque Item Contenu dans une Collection)
For Each Cell In Plage 'Pour chaque Cellule dans la Plage donc ;-)
'Début de Condition SI.
'Si la Condition est Valeur de Cellule = Valeur de TextBox
If Cell.Value = TextBox1.Value Then
'Alors :
feuille_saisie_cartouche.reference_usinee = TextBox1.Value 'La TextBox2 prend la valeur de la Cellule trouvée (Cell)
feuille_saisie_cartouche.reference_brute = Cell.Offset(0, 2).Value 'La TextBox3 prend la Valeur de la celulle décalée de 0 Ligne et 1 Colonne
feuille_saisie_cartouche.code_mat = Cell.Offset(0, 3).Value
feuille_saisie_cartouche.plan_surv = Cell.Offset(0, 4).Value
feuille_saisie_cartouche.indice_pl = Cell.Offset(0, 5).Value
feuille_saisie_cartouche.indice_gam = Cell.Offset(0, 6).Value
feuille_saisie_cartouche.ComboBox1 = Cell.Offset(0, 7).Value
feuille_saisie_cartouche.ComboBox2 = Cell.Offset(0, 8).Value
'If Cell.Offset(0, 9).Value = "cu1" Then cu1.Value = True
feuille_saisie_cartouche.piece_code = Cell.Offset(0, 10).Value
feuille_saisie_cartouche.pince_1_reglage = Cell.Offset(0, 12).Value
feuille_saisie_cartouche.pince_2_reglage = Cell.Offset(0, 13).Value
feuille_saisie_cartouche.numero_enregistrement = Cell.Offset(0, 15).Value
feuille_saisie_cartouche.rep_date = Cell.Offset(0, 16).Value
feuille_saisie_cartouche.num_indice = Cell.Offset(0, 17).Value
feuille_saisie_cartouche.rep_par = Cell.Offset(0, 18).Value
feuille_saisie_cartouche.rep_designations = Cell.Offset(0, 19).Value
feuille_saisie_cartouche.rep_date_creation = Cell.Offset(0, 20).Value
feuille_saisie_cartouche.rep_emetteur = Cell.Offset(0, 21).Value
feuille_saisie_cartouche.rep_remarques = Cell.Offset(0, 22).Value
Exit For 'Sortie de la Boucle, car la condition est remplie
End If 'Fin de la Condition
'Passage à la Prochaine Cellule de la Plage (si on est pas Sorti pas Exit For)
Next Cell
