Discussion :

[boucseb79]

bonjour
dans le classeur ci joint je une cherche solution afin de reproduire un code avec autres données.

je m'explique dans les feuilles 01 qui sera dupliqué par la suite

il existe un code pour la saisie des heures (cellule A14:A100 de C14:C100 puis J14:J100 et L14:L100) le nom de la macro (cre_menu)
idem de B14:B100 et K14:K100 avec "Equipe" macro cre_menu2idem de D14:D100 et D14:D100 avec "Equipe" macro cre_menu3ma demande est comment modifier le code ci dessous afin d'ajouter les données de la feuille Genre (cre_menu4) en F14:F100

Code :

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

1
2
3
4
5
 
 
ElseIf Not Intersect(Range("D14:D100"), Target) Is Nothing _
            Or Not Intersect(Range("L14:I100"), Target) Is Nothing Then
        Call cre_menu4

Merci de vos lumieres


MP classeur : rafale79

merci d'avance
Sebastien

[Invité]

Bonjour,

A tester
http://www.cjoint.com/c/GHjfr5wPLph

[boucseb79]

bonjour
ce code ne fonctionne pas j ai erreur 400 ...
je l avais deja tenté ...
merci tout de meme

[Invité]

Re,

Un simple oubli de déclaration de variable

http://www.cjoint.com/c/GHjluXP1vch

[boucseb79]

re
pouvez vous me dire ou est ce manquement de variable car je tente de repliquer votre code( cre_menu4 ) sur d'autre plage de cellule
et j obtiens toujours erreur 400

H14:H100

merci

[Invité]

Re,

Dans le Module 1 en début

Code :

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

1
2
3
Public cb As CommandBar
Public liste As Range, liste2 As Range, liste3 As Range, liste4 As Range, liste5 As Range
Sub cre_menu()