Nom Ambigue

Bonjour à tous!

Je reviens vers vous avec une erreur qui s'affiche et bloque l’exécution d'une macro, il s'agit en fait de deux procédures différente qui gèrent des événements différents qui portent le même non "Private Sub Worksheet_Change(ByVal Target As Range) " sur la même feuille.

Si je dois changer le nom de l'une des procédures, ça serait comment ?

Merci à tous

Bonjour,

Non ... il ne faut pas changer le nom de la procédure ...

Chaque feuille n'a le droit qu^à une seule procédure d'un Nom donné ...

La solution consiste à fusionner tes deux évènements en Un Seul ...

Bonjour!

Merci James007, les éventements à gérer sont totalement indépendants, sur la première procédure le critère est placé sur la ligne 2 des colonnes de D à BK, la deuxième procédure gère un événement sur la ligne 3 pour les mêmes colonnes.

Encore mieux, comment faire pour que la procédure sache qu'il faut agir selon la liste en A1 ou selon la liste en A2 ?

Merci pour votre retour.

Re Bonjour!

Voici le code, selon la liste de validation en A1, cela fonctionne parfaitement, mais selon la liste en A2, toutes les colonnes se cachent

Private Sub Worksheet_Change(ByVal Target As Range)

Dim p%, k%, prdts As Range

If Target.Address = "$A$1" Then

Application.ScreenUpdating = False

Me.Columns.Hidden = False

k = Me.Cells(1, Columns.Count).End(xlToLeft).Column

Set prdts = Me.Cells(2, 4).Resize(, k - 3)

p = WorksheetFunction.Match(Target, [2:2], 0)

prdts.Columns.Hidden = True

Columns(p).Hidden = False

Else

If Target.Address = "$A$2" Then

Application.ScreenUpdating = False

Me.Columns.Hidden = False

k = Me.Cells(1, Columns.Count).End(xlToLeft).Column

Set prdts = Me.Cells(3, 4).Resize(, k - 3)

p = WorksheetFunction.Match(Target, [2:2], 0)

prdts.Columns.Hidden = True

Columns(p).Hidden = False

End If

End If

End Sub

Merci à vous.

Bonsoir !

En attente d'une aide, merci.

bonjour

regarde peut être là l'erreur :

prdts.Columns.Hidden = True

par false

crdlt,

André

Bonsoir!

Merci pour la réponse Andre13, a quel niveau dois je faire la modif, j'ai inverser les variable booléenne dans le test pour l’événement A2 mais rien ne se passe ou bien c'est la colonne A qui se masque.

Merci de m’éclairer plus.

Re,

Edit : à l'aveugle car pas de fichier c'est chaud

Private Sub Worksheet_Change(ByVal Target As Range)
Dim p%, k%, prdts As Range
If Target.Address = "$A$1" Then
Application.ScreenUpdating = False
Me.Columns.Hidden = False
k = Me.Cells(1, Columns.Count).End(xlToLeft).Column
Set prdts = Me.Cells(2, 4).Resize(, k - 3)
p = WorksheetFunction.Match(Target, [2:2], 0)
prdts.Columns.Hidden = True
Columns(p).Hidden = False
Else
If Target.Address = "$A$2" Then
Application.ScreenUpdating = False
Me.Columns.Hidden = False
k = Me.Cells(1, Columns.Count).End(xlToLeft).Column
Set prdts = Me.Cells(3, 4).Resize(, k - 3)
p = WorksheetFunction.Match(Target, [2:2], 0)
prdts.Columns.Hidden = False
Columns(p).Hidden = False
End If
End If
End Sub

Re bonsoir!

Un instant je vais poste le classeur, merci encore André

Me revoila!

Le classeur en PJ.

Merci

Re,

regarde si c'est cela que tu voulais

crdlt,

André

Re !

Merci André, pour la réponse, mais c'est toujours le même résultat, rien ne se passe quand je choisi Comprimé dans A2, en principe les colonnes qui doivent s'afficher se sont celles qui contiennent "Comprimé" en ligne 2, les autres colonnes devront être masquées.

merci a vous

Bonsoir!

Aucune réponse ??? Est ce un problème de logique dans macro ? Franchement je ne trouve pas...

Bonjour toutes et tous et bonne semaine

Bon , j'ai remarqué qu'il y avait dans la feuille NOMENCLATURE sur les cellules 'Comprimé ' et 'Gélule ' qui étaient aux formats nombre ce qui ne risquait pas de fonctionner et cela me faisait tourné en bourrique, j'ai corrigé cela est mis en format des cellules texte ou standard, ce qui m’empêchai de trouver sur la liste déroulante en A2 'Comprimé et ' Gélule' de plus, j'ai corrigé les cellules avec Gélule et Comprimé qui était certains en minuscules

Du coup,

après plusieurs méga tests j'ai un peu réussi, il faudra le fignoler

Edit: Gélule fonctionne mais un bug sur Comprimé

ci-joint

crdlt,

André

Bonjour!

Merci Andeé!