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

Draydi Messages postés 16 Statut Membre -  
tyranausor Messages postés 4198 Statut Membre -
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

Réponse 1 / 1
tyranausor Messages postés 4198 Statut Membre 2 040
 
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