EST CE UN PB DE FORMAT?

Le
IMER09
Bonjour a tous

J' ai ce qui suit
Sheets("Facture").Select
Dim Ligne As Long, C As Range
With Sheets("Impression")
Ligne = .Range("B65536").End(xlUp).Row + 1
For Each C In Range("M2", Range("M65536").End(xlUp))
If C = Me.TextBox4 Then

.Cells(Ligne, 2) = Cells(C.Row, 4)
.Cells(Ligne, 3) = Cells(C.Row, 5)
.Cells(Ligne, 4) = Cells(C.Row, 3)
.Cells(Ligne, 10) = Cells(C.Row, 6)
.Cells(Ligne, 11) = Cells(C.Row, 7)
Ligne = Ligne + 1
End If
Next C
End With

Ca ne fonctionne pas
La valeur de textbox est un chiffre
Qd je remplace Me.TextBox4 par ex par :"20" ca fonctionne
J ai essayer de definir un format chiffre du TB ss resultat
Je ne comprend pas
Merci d'avance
--
IMER09
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
AH60
Le #5380961
Bonjour
essaie avec

If C = CDbl(Me.TextBox4) Then

Abed_H




Bonjour a tous

J' ai ce qui suit
Sheets("Facture").Select
Dim Ligne As Long, C As Range
With Sheets("Impression")
Ligne = .Range("B65536").End(xlUp).Row + 1
For Each C In Range("M2", Range("M65536").End(xlUp))
If C = Me.TextBox4 Then

.Cells(Ligne, 2) = Cells(C.Row, 4)
.Cells(Ligne, 3) = Cells(C.Row, 5)
.Cells(Ligne, 4) = Cells(C.Row, 3)
.Cells(Ligne, 10) = Cells(C.Row, 6)
.Cells(Ligne, 11) = Cells(C.Row, 7)
Ligne = Ligne + 1
End If
Next C
End With

Ca ne fonctionne pas
La valeur de textbox est un chiffre
Qd je remplace Me.TextBox4 par ex par :"20" ca fonctionne
J ai essayer de definir un format chiffre du TB ss resultat
Je ne comprend pas
Merci d'avance
--
IMER09


IMER09
Le #5380471
Un GRD merci AH60 c'est parfait
--
IMER09



Bonjour
essaie avec

If C = CDbl(Me.TextBox4) Then

Abed_H




Bonjour a tous

J' ai ce qui suit
Sheets("Facture").Select
Dim Ligne As Long, C As Range
With Sheets("Impression")
Ligne = .Range("B65536").End(xlUp).Row + 1
For Each C In Range("M2", Range("M65536").End(xlUp))
If C = Me.TextBox4 Then

.Cells(Ligne, 2) = Cells(C.Row, 4)
.Cells(Ligne, 3) = Cells(C.Row, 5)
.Cells(Ligne, 4) = Cells(C.Row, 3)
.Cells(Ligne, 10) = Cells(C.Row, 6)
.Cells(Ligne, 11) = Cells(C.Row, 7)
Ligne = Ligne + 1
End If
Next C
End With

Ca ne fonctionne pas
La valeur de textbox est un chiffre
Qd je remplace Me.TextBox4 par ex par :"20" ca fonctionne
J ai essayer de definir un format chiffre du TB ss resultat
Je ne comprend pas
Merci d'avance
--
IMER09




Publicité
Poster une réponse
Anonyme