Microsoft 365 Erreur de compilation : Déclaration existante dans la portée en cours

[Usine à gaz]

Bonjour à toutes et à tous

J'utilise toujours et depuis plusieurs années l'excellent calendrier de Rolland_M qui est vraiment super (un peu difficile à installer mais Super de chez Super)
Encore merci Rolland

Me voilà avec un nouveau besoin que je n'avais pas encore rencontré : me servir du calendrier pour 2 colonnes dans la même feuille.

Utilisation :
1 - pour les cellules de la colonne O,
2 - Besoin pour la colonne M,

Barbatruc de pacotille que je suis, ma 1ère réaction a été tout bonnement de recopier le code de la colonne O dans le code de la colonne M
Que nenni, ça ne fonctionne pas !

J'ai tenté de faire des recherches mais je n'ai pas trouvé.

Auriez-vous la solution ?
En cas, je joins le fichier test.
Un grand merci à tous

 

[Hasco]

Bonjour,

If Not Intersect(R, Range("M2:M30000,o230000")) Is Nothing And R.Count = 1 Then

Cordialement

 

[fanch55]

Salut, commenter les dim et le tour est joué .
Tu peux sûrement optimiser ceci en faisant une fonction au lieu de dupliquer comme un bourr... trop hatif
Attention lors de l'appel du calendrier à ne pas effacer la date existante ...

 

[Hasco]

Re,

En gardant le même code et changeant l'adresse de la plage voulue ça marche. Testé

 

[Usine à gaz]

Re,

En gardant le même code et changeant l'adresse de la plage voulue ça marche. Testé

Bjr Hasco
Merci d'être là pour moi,
Nul je suis car je n'ai rien compris

 

[Usine à gaz]

Salut, commenter les dim et le tour est joué .
Tu peux sûrement optimiser ceci en faisant une fonction au lieu de dupliquer comme un bourr... trop hatif
Attention lors de l'appel du calendrier à ne pas effacer la date existante ...

Bjr fanch55
Je te remercie pour ce retour mais je n'ai rien compris lol

 

[Usine à gaz]

Bonjour,


Cordialement

Re-Bjr, j'ai tenté mais je n'ai pas réussi

 

[Hasco]

Re,

Voir fichier joint

 

[Usine à gaz]

Re,

Voir fichier joint

Je te remercie
Je teste et je reviens te dire ...

 

[Usine à gaz]

Re-Bjr Hasco
Re-Bjr fanch55

@Hasco : ça fonctionne nickel, je te remercie
Merci à toi aussi fanch55