Autres probleme de variable

3tata6111165

XLDnaute Nouveau
bonjour a tous

ce code fonctionne sauf avec la variable v3 je pense qu'il manque un C....(v3) mais je ne trouve pas

merci d'avance

version execl 2007

' calcul OTD
' ligne livre a lheure et complete
Sub lgllivcomalhparcl()

Sheets("b").Select
var11 = 0 'var11=nb ligne non liver
i = 1
j = 1
v1 = "01/01/2019"
v2 = "31/07/2019"
v3 = "RFM"
With Sheets("b")
Do While Cells(i, 1).Value <> ""
If .Cells(i, 7).Value >= .Cells(i, 5).Value And .Cells(i, 3).Value <= .Cells(i, 2).Value And .Cells(i, 2).Value >= CDate(v1) And .Cells(i, 2).Value <= CDate(v2) And .Cells(i, 12).Value = v3 Then
Sheets("b").Cells(i, 1).EntireRow.Copy _
Destination:=Sheets("n").Cells(j, 1)
var11 = var11 + 1
j = j + 1
End If
i = i + 1
j = j
Loop
End With
Sheets("n").Cells(1, 10).Value = v3 'CStr(UserForm1.ListBox1.Text)
End Sub
 

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour tata, bonjour le forum

À quoi sert la variable var11 ? Tu l'incrémentes mais ne t'en sers pas...
Essaie ton code modifié mais non testé :

VB:
Sub lgllivcomalhparcl()[/COLOR]
Sub lgllivcomalhparcl()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim J As Integer 'déclare la variable J (incrément)
Const V1 As Date = DateSerial(2019, 1, 1) 'déclare la constante V1
Const V2 As Date = DateSerial(2019, 7, 31) 'déclare la constante V2

Set O = Sheets("b") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row 'de'finit la dernière ligne éditée DL de la colonne A de l'onglet O
J = 1 'initialise la variable J
For I = 1 To DL 'boucle des lignes 1 à DL
    'condition : si...
    If O.Cells(I, 7).Value >= O.Cells(I, 5).Value And _
       O.Cells(I, 3).Value <= O.Cells(I, 2).Value And _
       CDate(O.Cells(I, 2).Value) >= V1 And _
       CDate(O.Cells(I, 2).Value) <= V2 And _
       O.Cells(I, 12).Value = "RFM" Then
        'copie la ligne I de l'onglet O et la colle dans la ligne J de l'onglet "n"
        O.Cells(I, 1).EntireRow.Copy Sheets("n").Cells(J, 1)
        J = J + 1 'incrémente J
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
Sheets("n").Cells(1, 10).Value = "RFM" 'écrit "RFM"dans la cellule J1 de l'onglet "n"
End Sub
[COLOR=rgb(0, 0, 0)]
 

3tata6111165

XLDnaute Nouveau
rebonjour a tous

lors de ma précédente demande j'avais un peut adapter mon code pour essais ce qui a peut etre conduit a une mauvaise interpretation de ma demande
- le code ci dessous (meme s'il n'est pas tres elaborer) fonctionne bien sauf pour la variable V1 qui est charger a partir d'une listbox v2 et v3 fonctionne ,les "" doivent etre le probleme

merci d'avance

Sub lgllivcomalhparcl2()
' calcul OTD
Sheets("b").Select

i = 1
j = 1
v1 = UserForm1.ListBox1.Value
v2 = UserForm1.TextBox1.Value
v3 = UserForm1.TextBox2.Value

With Sheets("b")
Do While Cells(i, 1).Value <> ""
If .Cells(i, 7).Value >= .Cells(i, 5).Value And .Cells(i, 3).Value <= .Cells(i, 2).Value And .Cells(i, 2).Value >= CDate(v2) And .Cells(i, 2).Value <= CDate(v3) And .Cells(i, 12).Value = v1 Then
Sheets("b").Cells(i, 1).EntireRow.Copy _
Destination:=Sheets("n").Cells(j, 1)
j = j + 1
End If
i = i + 1
j = j
Loop
End With

End Sub
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil

eriiiiic
Si le problème fut décris
mais ici

:rolleyes:
 

3tata6111165

XLDnaute Nouveau
Désolé débutant c'est noté et nouveau sur ke forum donc oui poster une première fois sur le mauvais fil
Pour ce qui est du second j'ai poster le code qui le pose problème dans mon projet
Quant à la description je pensais être clair les conditions v3 et v2 quant fonctionnent quant je supprime la condition v1 quand il y a les trois aucune lignes n'est copier
Je pense que c'est un pb de syntaxe mais je ne trouve pas pour le moment
Et puis faut s'exciter le soir c'est pas bon pour la tension
 

eriiic

XLDnaute Barbatruc
post 1 : ce code fonctionne sauf avec la variable v3
post 4 : fonctionne bien sauf pour la variable V1 ... v2 et v3 fonctionne


Et puis faut s'exciter le soir c'est pas bon pour la tension
Et en plus il se f... de ma g...
Tu as raison. Je vais regarder d'autre demandeurs plus clairs, qui savent exposer leur problème et plus attentifs à ce qu'ils écrivent.
eric
 

Discussions similaires