Discussion :

[GreatTeacherOnizuka]

Bonjour,

Je commence un projet en VBA-Access dans lequel je crée des fichiers excels à partir d'une base de donnée.

Une fois que les différents champs ont été renseignés, je voudrais faire en sorte que quand une cellule commence par les caractères "Ab..." cette cellule soit caché.

Pour cacher la cellule cela ne me pose pas de problème, normalement.

Cependant, je n'arrive pas à trouver une fonction et à utiliser les fonctions que je trouve pour faire cette recherche de caractère.

Quelqu'un a t-il une solution?

Merci d'avance.

[loufab]

Bonjour,

Je ne vois pas bien dans quel produit tu veux faire cette manip.

Tu parles de cellules donc Excel, ici tu es sur le forum ACCESS.

Cordialement,

[GreatTeacherOnizuka]

Bonsoir,

Mea Culpa, effectivement, mon projet est en Access VBA mais j'ai seulement besoin de la fonction en VBA Excel qui puisse me permettre de faire cette manip.

Est-il possible de modifier le forum?

Merci en tout cas.

[Marc-L]

Bonjour,

utiliser un filtre par exemple, code livré sur un plateau via le Générateur de macros !

Ensuite, voir dans l'aide VBA intégrée du côté de la propriété SpecialCells pour récupérer les cellules filtrées
combinée à la propriété Hidden pour les cacher.

Alternative au filtre : la méthode Find …

[Menhir]

quand une cellule commence par les caractères "Ab..." .... faire cette recherche de caractère.

Code :

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

1
2
3
4
5
6
7
For each MaCell in Range(MaPlage).Cells
    If left(MaCell.Value,2)="Ab" then
 
        Je cache ma cellule
 
    End if
Next MaCell

C'est rustique mais c'est simple et ça marche.

[GreatTeacherOnizuka]

Merci à tout les deux, j'ai utilisé 2 façons différentes mais cela ne me cache pas mes colonnes, et je ne sais pas pourquoi.

Code :

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

1
2
3
4
5
6
7
 
For J = 0 To rec.Fields.Count - 1
   If Left(xlSheet.Cells(8, J+1).Value, 2) = "Ab" Then
   'If xlSheet.Cells(8, J+1) Like AB & "*" Then
   xlSheet.Cells.Columns(J + 1).EntireColumn.Hidden = True
  End If
Next J

J'ai bien des cellules qui commencent par Ab à la ligne 8.

[Marc-L]

A quoi correspond la variable J : des colonnes ou des lignes ?

Cf ligne de code n°3 dans laquelle seule la ligne n°8 des données est testée …

[casefayere]

Bonjour,

adaptes,

Code :

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

1
2
3
4
5
6
For J = "ton nombre de colonnes" To 1 Step -1
   If Left(xlSheet.Cells(8, J).Value, 2) = "Ab" Then
   'If xlSheet.Cells(8, J) Like AB & "*" Then
   xlSheet.Cells.Columns(J).EntireColumn.Hidden = True
  End If
Next J

[Menhir]

Déjà, je ne sais pas ce que tu veux faire avec ton "xlSheet" mais si c'est une variable, je te conseille de changer son nom.
La plupart des constantes Excel commencent par "xl" donc c'est un risque de conflit et d'embrouille de commencer un nom de variable par ces deux lettres.

Je connais pas l'objet "Fields" et il semble inconnu aussi de l'aide VBA Excel.

Ensuite, dans xlSheet.Cells.Columns(J + 1).EntireColumn.Hidden = True , je ne vois pas trop à quoi sert le Cells ? En fait c'est tout l'empilement Cells.Columns(J+1).EntireColumn qui est franchement bizarre.

Je ne sais pas exactement ce que représente ton "rec", il faudra donc que tu adaptes le code qui suit.

Code :

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

1
2
3
4
5
6
Limite = Cells(Columns.Count,8).End(xlToLeft).Column
For each MaCell in Range("A8:"&Limite&"8").Cells
    If left(MaCell.Value,2)="Ab" then
        MaCell.EntireColumn.Hidden = True
    End if
Next MaCell

[GreatTeacherOnizuka]

Effectivement, je ne teste que les valeurs de ma ligne 8, c'est ce que je veux faire.

Avec ta méthode Casefayere, ça donne la même chose. ça compile mais ne me cache pas mes colonnes.

Pour vous donner une idée, je crée mes fichiers excel dynamiquement avec des bases de données de Access.

Alors le bug peut, peut être venir du fait que les données exportées depuis access n'ont pas le même format que des données classiques?

[Menhir]

Ca explique ton "Field".
Les objets VBA n'ont pas le même nom dans Excel, Accès et Word.

[GreatTeacherOnizuka]

Oui, je suis un peu dans l'impasse sur ce point là du coup, je vais essayer d'y réfléchir de nouveau et si vous avez une solution, je suis preneur.

[Menhir]

Et le second code que je t'ai proposé ?

[GreatTeacherOnizuka]

Je viens de tester ton deuxième code et toujours la même chose, cela compile mais ne me cache pas mes colonnes. Dans Access les champs qui commencent par ces deux lettres sont du type NuméroAuto. A votre avis est-ce que le problème peut venir de là? (Mais je précise quand même que c'est sur le nom du champ que j'essaye de faire mon test.)

[Menhir]

Essaye de le faire avancer en pas-à-pas pour voir par où il passe et quelles sont les valeurs des variables (pour ça, pense à avoir la fenêtre "Variables locales" ouverte).

[GreatTeacherOnizuka]

Finalement, j'ai résolu le problème. J'avais un nouveau tableau qui se créé plus tard dans mon code et ça devait annuler ces propriétés là.

Je vous remercie en tout cas, vous m'avez quand même bien aidé.