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

Fermé

Draydi Messages postés 13 Date d'inscription jeudi 4 février 2016 Statut Membre Dernière intervention 2 mai 2016 - 15 mars 2016 à 15:38
tyranausor Messages postés 3545 Date d'inscription jeudi 6 août 2009 Statut Membre Dernière intervention 1 avril 2022 - 21 mars 2016 à 23:06

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 3545 Date d'inscription jeudi 6 août 2009 Statut Membre Dernière intervention 1 avril 2022 2 031
21 mars 2016 à 23:06

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

Newsletters