[E-07] Recherche de valeurs pour faire un bilan

**wushutao** · 06/02/2009, 20h58

Bonjour à tous,

Je me permets de vous solliciter pour une aide sur Excel, plus précisément sur du VBA. Voilà mon problème :

J'ai des tableaux avec des numéros clients, nom client et nom de chantier dans plusieurs fichiers excel, et je souhaiterais faire un fichier excel pour me permettre de faire un bilan.
Je viens de me faire un petit excel pour travailler au développement de cette future feuille bilan et je bloque :

Lorsque je donne le numéro client (dans la cellule K3), il trouve bien les valeurs mais il les écrit au même endroit (il y a un problème avec mon "compteur"), je ne sais pas si je suis bien clair

Voici le 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub CommandButton2_Click()
 
Dim ARECHERCHER As Integer
Dim celluletrouvee As Range
 
ARECHERCHER = Range("k3").Value
compteur = Range("I1").Value
 
With Worksheets("Feuil1").Range("a1:a16")
    Set c = .Find(ARECHERCHER, LookIn:=xlValues)
 
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
 
          ' Chantier
            c.Select
        ActiveCell.Offset(0, 1).Select
        Selection.Copy
        Range("F4").Offset(compteur, 0).Select
        ActiveSheet.Paste
 
 
        ' Client
        c.Select
        ActiveCell.Offset(0, 2).Select
        Selection.Copy
        Range("F4").Offset(compteur, 1).Select
        ActiveSheet.Paste
 
 
    Application.CutCopyMode = False
    Range("I1").Value = compteur + 1
 
            Set c = .FindNext(c)
 
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
 
End Sub

Merci d'avance

**drakkar_agfa** · 06/02/2009, 21h11

Bonjour,

le forum est la pour ça! C'est bien un forum d'aide sur VBA excel

En regardant ton code, p-e que

Code :

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

Range("I1").Value = compteur + 1

deviendrait

Code :

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

ompteur = compteur + 1

Et si c'est possible (probablement) évite les Select et Selection.
Avec les Select et sans savoir où son placé les cellule copiée et collée, il m'est difficile de tester.

Regarde ça et donne des nouvelles!

**wushutao** · 06/02/2009, 21h34

Non ça ne fonctionnement pas.

Voici une image d'excel :

Donc je donne le numéro client en "K3", et je souhaiterais qu'il me donne les résultats pour ce client dans le tableau "F4:G19".
Actuellement, il trouve le numéro client en "A9" et indique bien le chantier en "F4" et le nom du client en "G4", ensuite il trouve bien le numéro client en "A12", mais il indique le chantier en "F4" (et non en "F5") et le nom du client en "G4" (et non en "G5"), voila pourquoi je pensais à un problème dans mon compteur

**drakkar_agfa** · 06/02/2009, 21h55

AH AH!!!

Maintenant je comprends!
Avec une recherche, tu veux sortir la liste qui correspond à la recherche...

Et le I1 représente quoi?

Avec ces infos, tout ira bien!

**fred65200** · 06/02/2009, 21h56

bonsoir,

essaie ça

Dans la mesure du possible, évite les select.
J'ai ajouté LookAt:=xlWhole pour éviter les conflits de 5 vs 15.
Prends l'habitude d'initialiser tes variables.
Ici Compteur est le numéro de la première cellule libre de la colonne F

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
35
36
Option Explicit
 
Private Sub CommandButton2_Click()
 
Dim ARECHERCHER As Integer
Dim celluletrouvee As Range
Dim Compteur As Integer
Dim C As Range
Dim firstAddress As String
 
ARECHERCHER = Range("k3").Value
Compteur = Range("I1").Value
 
With Worksheets("Feuil1").Range("a1:a16")
    Set C = .Find(ARECHERCHER, LookIn:=xlValues, LookAt:=xlWhole)
 
    If Not C Is Nothing Then
        firstAddress = C.Address
        Do
 
        ' Chantier
        Cells(Compteur, "F") = C(1, 2)
 
        ' Client
        Cells(Compteur, "G") = C(1, 3)
 
 
    Range("I1").Value = Compteur + 1
 
            Set C = .FindNext(C)
 
        Loop While Not C Is Nothing And C.Address <> firstAddress
    End If
End With
 
End Sub

Cordialement

**drakkar_agfa** · 06/02/2009, 22h03

Pas testé mais le compteur fait défaut

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
35
Private Sub CommandButton2_Click()
 
Dim ARECHERCHER As Integer
Dim celluletrouvee As Range
 
ARECHERCHER = Range("k3").Value
'ICI le compteur initialisé
Compteur = 4
With Worksheets("Feuil1").Range("a1:a16")
    Set C = .Find(ARECHERCHER, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not C Is Nothing Then
        firstAddress = C.Address
        Do
            
        ' Chantier
        Cells(Compteur, "F") = C(1, 2)
 
        ' Client
        Cells(Compteur, "G") = C(1, 3)
 
 'Incrémentation du compteur
    Compteur = Compteur + 1
    
            Set C = .FindNext(C)
            
        Loop While Not C Is Nothing And C.Address <> firstAddress
    End If
End With
 
'Affichage du nombre de boucle.
Range("I1").Value= Compteur - 3

 
End Sub

**fred65200** · 06/02/2009, 22h06

Le compteur est en I1

Envoyé par fred65200

Ici Compteur est le numéro de la première cellule libre de la colonne F

Cordialement

**wushutao** · 06/02/2009, 22h11

Désolé mais ça ne fonctionne pas, j'ai une erreur d'exécution '1004' avec la ligne "Cells(Compteur, "F") = C(1, 2)"

**fred65200** · 06/02/2009, 22h13

testé chez moi, tout est ok

**wushutao** · 06/02/2009, 22h19

**drakkar_agfa** · 06/02/2009, 22h21

Au début de ton code, ajoute ceci

Code :

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

Range("F4:G20").ClearContents

Ça va vider la zone de résultat avant de commencer à la remplir.

Testé aussi, tout fonctionne... peut-être du à la version 2007???

Petite correction, changer

Code :

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

Range("I1").Value = Compteur - 4

par

Code :

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

Range("I1").Value = Compteur - 5

**fred65200** · 06/02/2009, 22h22

qu'elle est la valeur de compteur?

Je t'ai envoyé un classeur par MP

@+

EDIT Je suis aussi sur Excel 2007

**wushutao** · 06/02/2009, 22h38

Envoyé par fred65200

qu'elle est la valeur de compteur?

Je t'ai envoyé un classeur par MP

@+

EDIT Je suis aussi sur Excel 2007

Je te remercie pour ton fichier. Effectivement ton fichier fonctionne parfaitement mais le mien, avec le même code a priori, ne veut rien savoir ?

J'ai du passer un chapitre

**wushutao** · 06/02/2009, 22h45

J'ai trouvé d'où vient la différence et le problème : le problème vient du mode de sélection :

Si tu supprimes ce système de sélection par une cellule classique ça ne fonctionne pas. Par la suite je vais avoir de grosse base de donnée et dans plusieurs fichiers excel donc je ne pourrais pas avoir une "pré-sélection"

**fred65200** · 06/02/2009, 22h48

rien à voir, testé dans les deux cas.
@+

**wushutao** · 06/02/2009, 22h51

Mea culpa, j'avais mis 0 dans la cellule compteur

Par contre si on a deux numéros 8 comme dans mon exemple, ça ne fonctionne plus

**fred65200** · 06/02/2009, 23h02

ajoute

Code :

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

1
2
3
4
5
        Range("I1").Value = Compteur + 1
'ligne à ajouter
    Compteur = Range("I1")
 
           Set C = .FindNext(C)

@+

**wushutao** · 06/02/2009, 23h07

Terrible ça fonctionne

Un grand merci pour votre aide

[E-07] Recherche de valeurs pour faire un bilan

Macros et VBA Excel

Discussions similaires

Partager

Partager