Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel EST CE UN PB DE FORMAT?

EST CE UN PB DE FORMAT?

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AH60
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


Avatar
IMER09
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