Urgent SVP : Programme en vba pour déterminer les valeurs sup

Draydi Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   -  
tyranausor Messages postés 3501 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je vous présente la problématique, j'ai une application que je suis entrain de la développer sous excel vba afin de :
suivant un tableau excel colonne A les longueurs et Colonne B les largeurs, je dois déterminer les lignes ou :
la longueur est supérieures à une valeur déterminée + 1 ainsi que sa largeur.
les données résultantes doivent être afficher à l'écran de UserForm pour sélcetionner le choix adéquat :

Voici le code :
rivate Sub EnterButton_Click()
Dim A As String
Dim B As String
Dim X As Long
Dim Col As String
Sheets("Recherche").Activate ' feuille de destination
Sheets("Recherche").Cells(1, 1) = A
Sheets("Recherche").Cells(1, 2) = B

With Sheets("Stock Chute et Consommation MP") ' feuille source'

Col = "i" ' colonne données non vides à tester'
For X = 6 To 1000 'n° de la 1ere ligne de données'
For i = 3 To 4
If .Cells(X, i).Value <= TextName.Value And .Cells(X, i + 1).Value >= TextBox3.Value Then
deli = .Cells(Rows.Count, 1).End(xlUp).Row + 2
Sheets("Recherche").Range("A6:D100").Copy
.Range("A" & deli).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next
Next
End With
End Sub

1 réponse

  1.
    tyranausor Messages postés 3501 Date d'inscription   Statut Membre Dernière intervention   2 060
     
    Bonjour, des erreur dans ton code 

    Dim A As String
    Dim B As String
    Dim X As Long
    Dim Col As String
    est inutile (tu peux laisser quand même en simplifiant par 
    Dim A as string, B as string, x as long, col as string

    Sheets("Recherche").Activate ' feuille de destination
    Sheets("Recherche").Cells(1, 1) = A
    Sheets("Recherche").Cells(1, 2) = B
    peut être écrit de cette manière 
    with Sheets("Recherche")
    .Activate ' feuille de destination
    .Cells(1, 1) = A
    .Cells(1, 2) = B
    end with


    Par contre, en mettant 
    .Cells(1, 1) = A
    la cellule A1 prend la valeur de A et je doute que ça soit ce que tu veux!

    Aussi, peux-tu joindre ton fichier, ce sera plus facile pour comprendre
    0