Discussion :

[marie33000]

Bonjour tout le monde j'ai du mal à effectuer un petit code

Je dispose d'un textbox1 et d'un CommandButton1 sur le userform.
De même que je dispose de donnée sur excel (5 colonnes et N lignes)

Lorsque l'utilisateur tape un seuil dans le textbox1, celui ci est comparé à ma colonne4 (excel), si seuil>intensité alors on récupère la ligne et on la met dans la feuille2 par exemple

Voici un exemple de mes données sur excel:

5,54 6,98 12,87 5,4 6,62
7,12 8,65 15,65 8,85 9,65
8,7 10,32 18,43 12,3 12,68


Mes intensités sont donc 5,4 ; 8,85 ; 12,.3

Si l'utilisateur tape un seuil dans le textbox1 par exemple 8,9 alors il ne restera plus que la valeur 12,3 car:
5,4<8,9
8,85<8,9

Par conséquent la ligne:

8,7 10,32 18,43 12,3 12,68

sera recopié dans une nouvelle feuille

Voici mon début de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim seuil, intensite As Double
Dim n As Integer
 
TextBox1.Text = seuil
 
 
For n = 1 To 999
Cells(n, 4) = intensité
If seuil > intensité Then
(récupérer la ligne correspondante et la mettre dans la feuille2)
End If
Next n
End Sub

Je ne sais pas comment dire ce qui est entre parenthèse dans mon code, j'ai testé différentes solutions mais cela ne marche pas

[casefayere]

Bonjour,
déjà là une inversion

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox1.Text = seuil

je pencherai pour :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

seuil=TextBox1.Text

[marie33000]

Bonjour,

Oups euh oui en effet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

seuil=TextBox1.Text

c'est mieux

[AnneCa]

Je crois que tu as d'abord fait tes assignations de valeur à l'envers. C'est la Variable seuil qui doit valoir la valeur du text box et non l'inverse. Ci-dessous, une proposition pour le Copier/Coller

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton1_Click()
Dim seuil, intensite As Double
Dim n As Integer
 
seuil =  TextBox1.Text 'on assigne une valeur à seuil
p=0  
For n = 1 To 999
intensité= Cells(n, 4)  'on assigne une valeur à intensité
If seuil > intensité Then
    p=p+1
    Rows(Cstr(n) & ":" & Cstr(n)).Select
    Selection.Copy
    Sheets("Feuil2").Select
    Rows(Cstr(p) & ":" & Cstr(p)).Select
    ActiveSheet.Paste
End If
Next n
End Sub

Bonne chance!

[marie33000]

Merci AnneCa, ui en effet erreur de débutante, je comprend

Par contre le "p" n'est pas déclaré, est ce normal ?
Et lorsque je test ça ne me donne pas le résultat escompté

J'ai bien des données transférés sur la feuille2 par contre elle ne corresponde pas à mon test

[Krovax]

jenlèverais juste les .select

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If seuil > intensité Then
    p=p+1
    Rows(Cstr(n) & ":" & Cstr(n)).Copy
    Sheets("Feuil2").Rows(Cstr(p) & ":" & Cstr(p)).Paste
End If

et pour racourcir on peut mettre la cible tout de suite après le copy

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If seuil > intensité Then
 p=p+1
 Rows(CStr(n) & ":" & CStr(n)).Copy Sheets("Feuil2").Rows(CStr(p) & ":" & CStr(p))
End If

Edit j'ai pas vu ton post
dim p as long

Pour le test met des pose et regarde ce que contiennent tes variables seuil et d'intensité

[marie33000]

Avec ce code, j'ai uniquement la première ligne qui est recopié et ceci quelque soit le seuil rentré...

p.s.: j'ai bien déclaré le "p"

[AnneCa]

Ajoute cette ligne de code après intensité = Cells(n,4)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.print n & ": intensité = " & intensite  & ", " Seuil =  " & Seuil

Une fois la macro exécutée, vérifie que tu es bien passée par toutes les étapes et que les valeurs on bien été lues

[laetitia]

bonjour le fil 2 questions
question1:c est des points ou des virgules dans ta feuille?
question2: si textbox1 =5.5 tu recopy tes 2 dernieres lignes?

[marie33000]

Bonjour laetitia, alors j'ai des virgules sur ma feuille excel.

Oui c'est exactement ça, si textbox=1 = 5,5 alors on recopie les deux dernieres lignes.
Je n'arrive toujours pas à le faire fonctionner correctement

[laetitia]

re le fil code je suppose tes donnees de A2 a E (x) nb..lignes jusqu a la derniere non vide code du CommandButton1

Option Explicit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim x As Long, i As Long, k As Long, t As Variant, t2()
Private Sub CommandButton1_Click()
On Error Resume Next
Application.ScreenUpdating = False
If TextBox1.Value = "" Then MsgBox "textbox vide": Exit Sub
t = Range("a2:e" & Range("a65536").End(xlUp).Row)
x = 1
For i = 1 To UBound(t)
If t(i, 4) > Val(TextBox1.Value) Then
ReDim Preserve t2(1 To 5, 1 To x)
For k = 1 To 5
t2(k, x) = t(i, k)
Next k: x = x + 1: End If: Next i
Sheets(2).Range("a65536").End(xlUp).Offset(1, 0).Resize(UBound(t2, 2), UBound(t2, 1)) = Application.Transpose(t2)
Erase t, t2: Beep
End Sub

pour s affranchir du probleme de virgule le code ci dessous si tu tapes une virgule changement par point plus facile pour le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub textBox1_keyPress(ByVal keyAscii As MSForms.ReturnInteger)
If keyAscii = Asc(",") Then keyAscii = Asc(".")
End Sub

[marie33000]

Merci beaucoup Laetitia