extrait de code, probleme de parenthèse surement!!

[idimpact]

salut à tous!!


Voila, un bout de code et sur la ligne en gras et rouge je souhaite dire a la macro : tu me copies les données si en colonne I j'ai la date aue jai mis dans la combobox et en colonne G j'ai une des valeurs suivantes : "OUI" "NON" "peut etre" "peut etre envoi de doc"

Avec cette formule il me prend toutes mes valeurs que j'ai cité pour la colonne G mais me sélectionne toute les dates...

Si je mets un seul AND ca marche avec une seule valeur de G, si je mets que des AND il me donne aucun résultat!

ps: merci a bebere qui m'ai fait le codage principal que j'adapte à mon fichier

merci pour vos conseils


With ActiveWorkbook.Worksheets("General")
For C = 1 To UBound(tbl, 2) 'entêtes colonnes
.Cells(1, C) = tbl(1, C)
Next C
For L = 1 To UBound(tbl, 1) 'lignes
If tbl(L, 9) = MaDate And tbl(L, 7) = "OUI" And tbl(L, 7) = "NON" Or tbl(L, 7) = "peut etre" Or tbl(L, 7) = "peut etre envoi de doc" Then Li = .Range("A65536").End(xlUp).Row + 1
For C = 1 To UBound(tbl, 2) 'colonnes
.Cells(Li, C) = tbl(L, C)
Next C
End If
Next L
.Columns("A:S").AutoFit
End With

 

[Banzai64]

Re : extrait de code, probleme de parenthèse surement!!

Bonjour

Sans test je vois bien un And et après des Or avec tous les Or entre parenthèses
Si pas ça désolé

  With ActiveWorkbook.Worksheets("General")
    For C = 1 To UBound(tbl, 2) 'entêtes colonnes
      .Cells(1, C) = tbl(1, C)
    Next C
    For L = 1 To UBound(tbl, 1) 'lignes
      If tbl(L, 9) = MaDate And (tbl(L, 7) = "OUI" Or _
                                 tbl(L, 7) = "NON" Or _
                                 tbl(L, 7) = "peut etre" Or _
                                 tbl(L, 7) = "peut etre envoi de doc") Then
        Li = .Range("A65536").End(xlUp).Row + 1
        For C = 1 To UBound(tbl, 2) 'colonnes
          .Cells(Li, C) = tbl(L, C)
        Next C
      End If
    Next L
    .Columns("A:S").AutoFit
  End With

 

[idimpact]

Re : extrait de code, probleme de parenthèse surement!!

BINGO!🙂 je mettais bien compliqué la vie pour trouver une solution.


Un peu la meme histoire pour une autre ligne de mon code! Les items sont crées à partir des donnees se trouvant dans une colonne. Pour chaque item Excel me crée une feuille, je souhaiterai que Excel me crée une feuille que pour certains item présent, ex le items "Oui" "Non" Peut etre"

For Each Item In X.items 'sans doublons j = j + 1
With ActiveWorkbook
.Worksheets(j).Name = Item
For C = 1 To UBound(tbl, 2) 'entêtes colonnes
.Worksheets(j).Cells(1, C) = tbl(1, C)
Next C
For L = 2 To UBound(tbl, 1) 'lignes
If tbl(L, 7) = Item And tbl(L, 9) = MaDate Then
Li = .Worksheets(j).Range("A65536").End(xlUp).Row + 1
For C = 1 To UBound(tbl, 2) 'colonnes
.Worksheets(j).Cells(Li, C) = tbl(L, C)
Next C

End If
Next
.Worksheets(j).Columns("A:S").AutoFit

End With

Merci bien banzai 64

 

[Banzai64]

Re : extrait de code, probleme de parenthèse surement!!

Bonjour
Pas pratique comme ça de travailler sur des morceaux de code

Le mieux c'est que tu poste ton fichier sans données confidentielles

Dans ton code il manque un Next

Et

For Each Item In X.items

Je ne sais pas à quoi cela correspond

Bonne journée

 

[idimpact]

Re : extrait de code, probleme de parenthèse surement!!

Voila en piece jointe le fichier avec le code fait par bébère depuis je l'ai modifié mais le probleme pourrait etre identique.

je veux Qu'Excel me crée des feuilles dans le nouveau classeur uniquemnt pour certaines valeurs de la colonne code. exemple : les feuilles sont crées uniquement si les codes sont RDV Int futur et dmd Info...

Aujourd'hui la formule prend toutes les valeurs.

Merci😱

 

[Banzai64]

Re : extrait de code, probleme de parenthèse surement!!

Bonsoir

A voir