Problème de code

[Oxygm]

J'ai réalisé une base de donnée : ville unités, personnes, activité, date de formation initial, recyclage et prochaine formation.

Je voudrais en fait qu'il me ressorte sur une feuille vierge juste une liste par ville des gens qui sont Correspondants sécurité par exemple.

J'ai écrit ce code sur un bouton sur une feuille vierge.

Private Sub CommandButton1_Click()

j = 4
For i = 1 To 6
Cells(1, j).Value = Ville(i)
For Each Cells In Worksheets("BD").Range("A2:A" & .Range("A65536").End(xlUp).Row)
If Cells.Value = Ville(i) Then
If Cells.Offset(0, 5).Value = CoHS Then
j = j + 1
Range("D" & Cells.Row & ":E" & Cells.Row).Copy
Range("A" & j & ":B" & j).Paste
End If
End If
Next
j = j + 2
End If


Exit Sub
End Sub​

Je ne trouve pas l'erreur.
Pouvez vous m'aider?
Merci beaucoup

 

[Spitnolan08]

Re : Problème de code

Bonjour,
Pour que ta macro fonctionne il faut la modifier comme cela par exemple :
Cells est un terme VBA qui ne peut être utilisé comme nom de variable. Je l'ai remplacé par cel.

Private Sub CommandButton1_Click()
Dim cel As Range
j = 4
For i = 1 To 6
    Cells(1, j).Value = Ville(i)
    With Worksheets("BD")
        For Each cel In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
            If cel.Value = Ville(i) Then
                If cel.Offset(0, 5).Value = CoHS Then
                    j = j + 1
                    Range("D" & cel.Row & ":E" & cel.Row).Copy Sheets("Liste CoHS").Range("A" & j & ":B" & j)
                End If
            End If
        Next
    End With
    j = j + 2
Next

Mais ainsi, elle fonctionne mais ne te donne pas le résultat attendu. Il faut encore que tu la transformes pour répondre à ta question.

Cordialement

 

[dixit]

Re : Problème de code

bonjour à tous,
et pourquoi pas un filtre (élaboré si besoin )?
beaucoup plus simple ...

 

[pierrejean]

Re : Problème de code

bonjour Oxygm

Salut Spit

une version

quelle modestie d'avoir intitulé

probleme de code et non

problemes de code

 

[Spitnolan08]

Re : Problème de code

Re,
Bonjour Dixit, Pierrejean,

Dixit : Certes mais nécessite de modifier les valeurs de la zone de références à chaque fois.

Pierrejean 😉 : En fait, je m'étais dit qu"Oxygm avait fait un premier travail de recherche et qu'il avait juste besoin d'un coup de pouce pour continuer à avancer et trouver tout seul la solution... Et comme je paresse un peu du côté code aujourd'hui cette idée me plaisait bien.🙄 Mais bon...

Cordialement

 

[Oxygm]

Re : Problème de code

Désolé, je ne suis pas un expert de VBA.

J'avais fait des recherches, mais je ne trouvais pas mon erreur. Mes erreurs si cela convient mieux à certains.

J'ai modifié le code. La tramme fonctionne. Merci pour votre aide.

Je trouve que l'idée du filtrage est bien. Je peux réaliser des filtres avec masquage de colonne.
Le problème c'est que je voudrais une présentation propre, plus aérée et pas sous forme de tableau. Que ca puisse aussi servir de présentation.

C'est pour cela que je m'étais orienté vers cette solution.

A moins qu'il y ait moyen de faire le filtrage et de balancer sous word.