[RESOLU] VBA - Erreur 1004 - définition du RANGE (fonction perso)

Dranreb

XLDnaute Barbatruc

• 12 Septembre 2015

• #2

Re : VBA - Erreur 1004 - définition du RANGE (fonction perso)

Bonjour.

Vous ne semblez pas connaître l'opérateur Mod on dirait. Il donne le reste de la division du terme avant par celui après.

VB:

Private Function PremiereColonne%(Cel As Range)
PremiereColonne = (Cel.Column - 3) Mod 10 + 3
End Function

(pour renvoyer la même chose que votre fonction, ce qui parait curieux, surtout en voyant la PremièreLigne. j'aurais mieux compris (Cel.Column - 3) \ 10 + 3. L'opérateur \ effectue une division entière)

 

Dernière édition: 12 Septembre 2015

Vote positif 0 Vote négatif

L

leakim

XLDnaute Occasionnel

• 12 Septembre 2015

• #3

Re : VBA - Erreur 1004 - définition du RANGE (fonction perso)

Bonjour, Merci Dranreb pour votre expertise. J'avoue que je m'en suis remis à jpb38 et que je n’avais pas prévue d'agrandir le fichier et sa réponse convenait exactement à ma demande initiale.
Il s'avère que ma demande change donc le code aussi (j'en suis pas surpris).
J'ai remis votre code dans mon fichier et il est tout à fait opérant. Il subsiste toujours un bug dans la fonction plage lorsque je dépasse 200 colonnes.
Comment adapter la fonction plage ?

Leakim

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Septembre 2015

• #4

Re : VBA - Erreur 1004 - définition du RANGE (fonction perso)

En essayant de rendre la plage plutôt que son adresse, ça irait mieux ?

VB:

Private Function Plage(ByVal Cel As Range) As Range
Dim Lg&, Col&, N&
Lg = PremiereLigne(Cel)
Col = PremiereColonne(Cel)
Set Plage = Range(Cells(Lg, Col), Cells(Lg + 17, Col))
For N = 10 To 250 Step 10
   Set Plage = Application.Union(Plage, Range(Cells(Lg, Col + N), Cells(Lg + 15, Col + N)))
   Next N
End Function

 

Vote positif 0 Vote négatif

L

leakim

XLDnaute Occasionnel

• 12 Septembre 2015

• #5

Re : VBA - Erreur 1004 - définition du RANGE (fonction perso)

Re, Merci Dranreb pour votre accompagnement.
Comme préconisé dans votre signature je joins le fichier.
L'idée c'est que lorsque l'on clique sur une cellule un userform s'ouvre et on a le choix de sélectionner les participants. Le code qui sollicite la fonction plage permet de tester dans la plage les doublons. Par exemple le test se fait sur tous les lundis de chaque atelier proposé.Cela fonctionne très bien avec le code précédent jusqu'à 180 colonnes avec le votre cela ne fonctionne plus, mais les lectures que j'ai faites indique bien un test en boucle comme dans votre code ???
Le bug n'est plus dans la fonction maintenant mais dans le code lorsqu'il y a "Set pl = Range(Plage(ActiveCell))" peut-être faut-il indiquer la feuille?

Merci encore,

Leakim

EDIT: A l'issu de la résolution j'ai retiré le fichier (j'avais laissé des noms...)

 

Dernière édition: 13 Septembre 2015

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Septembre 2015

• #6

Re : VBA - Erreur 1004 - définition du RANGE (fonction perso)

Non, vous devriez maintenant pouvoir faire simplement Set pl = Plage(ActiveCell) puisque lorsqu'elle est utilisée, la fonction forme désormais directement une expression Range et non plus String.

 

Vote positif 0 Vote négatif

L

leakim

XLDnaute Occasionnel

• 12 Septembre 2015

• #7

Re : VBA - Erreur 1004 - définition du RANGE (fonction perso)

Re,
Ok pour la déclaration des variables mais là j'ai depuis le debut
Private Sub CommandButton_done_Click()
Dim y, d As String
Dim Col, lg0, col0 As Integer, NB As Integer
Dim pl As Range, c As Range

Alors je suis vraiment perdu !?!

Leakim

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Septembre 2015

• #8

Re : VBA - Erreur 1004 - définition du RANGE (fonction perso)

Pourquoi ? Dim pl As Range c'est bon, puisque justement on peut comme ça y affecter par un Set le Range directement renvoyé par la fonction Plage !

 

Vote positif 0 Vote négatif

L

leakim

XLDnaute Occasionnel

• 12 Septembre 2015

• #9

Re : VBA - Erreur 1004 - définition du RANGE (fonction perso)

Re,
Oui, j'ai ôté la déclaration et c'est la même chose. Avec ou sans cela ne fonctionne pas...
Je sais pas quoi penser? Faut-il que je reprenne le code? la fonction?

Leakim

 

Vote positif 0 Vote négatif

L

leakim

XLDnaute Occasionnel

• 12 Septembre 2015

• #10

Re : VBA - Erreur 1004 - définition du RANGE (fonction perso)

Re,
Juste pour vous montrer le résultat de la plage avec les valeurs max.

Dans l'attente de vous relire,

Leakim

 

Pièces jointes

• Captureplagemax.JPG

  26.3 KB · Affichages: 33

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Septembre 2015

• #11

Re : VBA - Erreur 1004 - définition du RANGE (fonction perso)

Pourquoi vous ôtez une déclaration qui est bonne ?
Le résultat de la fonction Plage que je propose au poste #4 ne peut pas être le résultat que vous me montrez car elle ne renvoie plus un String mais un objet Range. En revanche quelque chose d'analogue pourrait être rendu par Plage(ActiveCell).Address tant que ça ne coince pas à cause de la longueur.

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 13 Septembre 2015

• #12

Re : VBA - Erreur 1004 - définition du RANGE (fonction perso)

bonjour Leakim ,Danreb et tous

comme le dit Danreb a la place de Set pl = Range(Plage(ActiveCell)) met Set pl = Plage(ActiveCell)

le mod et l'union pas bête, cela simplifie drôlement la macro
cordialement

 

Vote positif 0 Vote négatif

L

leakim

XLDnaute Occasionnel

• 13 Septembre 2015

• #13

Re : VBA - Erreur 1004 - définition du RANGE (fonction perso)

Bonjour Dranreb, jpb388 et le forum.
Je vous remercie Dranreb pour les codes qui fonctionnent super bien.
Merci jpb388 pour la traduction de la rédaction.

Cordialement,
Leakim

 

Vote positif 0 Vote négatif

L

leakim

XLDnaute Occasionnel

• 13 Septembre 2015

• #14

Re : VBA - Erreur 1004 - définition du RANGE (fonction perso)

Bonjour Dranreb, jpb388 et le forum.
Je vous remercie Dranreb pour les codes qui fonctionnent super bien.
Merci jpb388 pour la traduction de la rédaction.

Cordialement,
Leakim

 

Vote positif 0 Vote négatif

L

leakim

XLDnaute Occasionnel

• 13 Septembre 2015

• #15

Re : VBA - Erreur 1004 - définition du RANGE (fonction perso)

Bonjour Dranreb, jpb388 et le forum.
Je vous remercie Dranreb pour les codes qui fonctionnent super bien.
Merci jpb388 pour la traduction de la rédaction.

Cordialement,
Leakim

 

Vote positif 0 Vote négatif