Discussion :

[siham_06]

Bonjour,

J'ai un fichier excel de deux colonnes comme décrit ci dessous:
Date Designation
1/10/2000 Vrai
2/03/1999 Vrai
4/05/2006 Faux
... ...

j'ai crée un formulaire (User form) où j'ai mis deux textbox pour entrer la date de debut et de fin et un bouton où je voudrais calculer le nombre de fois où j'ai la désignation vrai ou faux à partir de mon fichier excel.

Merci pour votre aide

[AlainTech]

Bonjour,

Montre-nous ce que tu as commencé à faire et on t'aidera pour les points où tu butes.

[siham_06]

je suis debutante en VBA et je voudrais savoir et ce qu'on peut faire des requetes sql pour calculer le nombre de fois où on le mot vrai ou faux comme par ex :

Code sql :

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

select count(vrai) from designation where textbox1.value=date.value and textbox2.value=date.value

sachant que designation est une colonne et date est une colonne qui se trouvent sur le même feuille excel

merci

[teen6517]

Bonjour a toi siham_06


Je pense que tu ne procede pas de la bonne facon si j'ai bien compri ton probleme

Les requete SQL peuvent se s'executer sans probleme au milieu de code VB je te donne un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
    Dim vic_pourcentage As Integer       
    Dim rst As DAO.Recordset
    Dim sql As String
 
    'pourcentage de vic a selectionner
    sql = "Select pourcentage From parametrage Where secteur = 'VIC'"
    Set rst = CurrentDb.OpenRecordset(sql, dbOpenForwardOnly, dbReadOnly)
    vic_pourcentage = rst(0)

grace a ce code j'accede a la table Parametrage et je stoque dans une variable le pourcentage qui est associer a la ville de Vic

mais si tu veux utilisé une requette Sql, il te faut une base de donnée alors que toi il me s'emble que tes données sont dans la feuille de calcul de Excel

Peut tu expliquer plus précisément se que tu cherche a faire avec un exemple concré des donnée que tu as dans ta feuille excel??

[AlainTech]

Bonjour,

Montre-nous ce que tu as commencé à faire et on t'aidera pour les points où tu butes.

Bonjour,

On n'a aucune idée des noms de tes boutons, ni du fichier à analyser.
Les boutons sont-ils sur une feuille ou un Userform?
Le fichier à traiter est-il celui où se trouvent les boutons?
Si non, le fichier est-il ouvert ou fermé?

Bref, si tu ne nous aides pas, on ne pourra pas t'aider.

[siham_06]

mes boutons sont sur un userform.
j'ai essayé de faire ça mais ça marche ps

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub CommandButton1_Click()
Dim i, nb_Vrai, nb_Faux, j, debut, fin As Integer
 
nb_Vrai = 0
nb_Faux = 0
 
 i = 1
Do While Cells(i, 1).Value < TextBox1.Value
 
i = i + 1
Loop
debut = i
j = i
 
Do While Cells(j, 1).Value < TextBox2.Value
 
j = j + 1
Loop
fin = j - 1
 
For i = debut To fin
 
        If Cells(i, 4).Value = "Vrai" Then
            nb_Vrai = nb_Vrai + 1                            'Incrémente si la cellule contient 'Vrai'
        End If
        If Cells(i, 4).Value = "Faux" Then
            nb_Faux = nb_Faux + 1                            'Incrémente si la cellule contient 'Faux'
        End If
 
    Next i                                               'Passe à la ligne suivante
 
'MsgBox "Nombre de vrai : " & nb_Vrai & " et nombre de faux : " & nb_Faux
 
End Sub

[AlainTech]

Le fichier à traiter est-il celui où se trouvent les boutons?
Si non, le fichier est-il ouvert ou fermé?

Pourquoi faut-il poser plusieurs fois les questions avant d'obtenir une description correcte du problème?

Enfin, au vu de ton code, je suppose que ta macro est dans le fichier à traiter.

Alors, pour répondre à ta question, oui c'est possible avec une requête SQL.

Voici un début de piste:

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
19
20
21
22
Sub test()
  ' Il faut préalablement activer la référence Microsoft ActiveX Data Objects 2.x Library
  Dim cn As New ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim strSql As String
  With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & ThisWorkbook.FullName & _
        ";Extended Properties=""Excel 8.0;HDR=YES;"""
    .Open
  End With
  Set rs = New ADODB.Recordset
  strSql = "SELECT * FROM [Feuil1$]"
  rs.Open strSql, cn, adOpenKeyset
 
 
  rs.Close
  cn.Close
  Set rs = Nothing
  Set cn = Nothing
 
End Sub

A toi, maintenant, d'adapter à tes besoins.