VBA formulation boucle

Bonsoir au forum,

Quelque chose ne va pas dans mon code !

Sub essai()
        Do While ActiveCell <> Range("ab17")
            ActiveCell.Offset(1, 0).Select
        Loop

End Sub

ActiveCell est une formule du genre "=j25+1"

"ab17" est est un chiffre en dur

ou est l'erreur ?

amicalement......Claude.

Salut,

Ton code fonctionne très bien chez moi...

A+

Souri84

re,

oui, il tourne, mais ne s'arrête pas quand ActveCell = "ab17"

Claude.

heu tu es sur ? peut être que ab17 est en format texte... ? car moi, c nickel chez moi... le code s'arrête au bon endroit...

re,

essaye sur mon fichier.

https://www.excel-pratique.com/~files/doc/CalendrierAnnuel2.xls

je suis en excel97

Claude.

Je pense que ça ne fonctionne pas car, quand tu mets ta cellule au format nombre, ça te mets un nombre du style 40650... donc normal qu'il ne trouve pas ton 24....

Enfin je pense que c ça la solution, car je te dis, sur mon fichier perso tout bête, ton code fonctionne à merveille...

J'ai essayé pour les autre mois, et c la même chose, il ne trouve pas le 24... et le format est identique au mois d'avril...

si j'étais toi, j'essaierais de mettre des chiffres entre 1 et 31... plutôt que le format spécial, car là, ça fonctionne,

Fais un test en changeant un chiffre au hasard et en mettant 24, ça fonctionne correctement....

A te lire,

Souri84

re,

Tu as raison çà marche comme çà !

maintenant si on prenait directement "ab15" (texte), tu crois cela possible ?

et avec quel code ?

je te remercie

Claude.

attends je regarde

en ab15 j'ai "Name"... on dirait une fonction perso... c le cas ?

re,

non c'est une fonction ecxel ou peut-être Morefunc !

=DIMPAQUES($AC$2;"jj")

le but c'est de mettre Paques à la place du prénom (et çà change tous les ans)

Claude.

re,

c'est + compliqué que çà !!

le fait d'avoir mis des chiffres en dur (les jours du mois), la macro fonctionne mais les jours

lundi,mardi,...etc ne sont plus bons !!!

Claude.

Bonjour Souri84 et au forum,

J'ai la solution, trouvée tard cette nuit !

mais j'ai eu un plantage avant sauvegarde !

Je re-écrit ce matin et te tiens au courant.

amicalement

Claude.

Salut,

Dis moi quand tu auras terminé, ça se trouve où déjà les MOREFUNC ?

Bonjour souri84 et au forum,

pour le Morefunc, tu l'as sur le Web (gratuit)

Voila mon fichier terminé, sauf que ce code ne réagit pas !!

j'ai créer un bouton provisoire pour lancer la macro "prepare"

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
        If Not Application.Intersect(Target, Range("aa2")) Is Nothing Then
     Call prepare
        End If
End Sub

le bouton "Contrôle" sert à voir et comprendre les colonne cachées.

c'était pas si simple !!!

si t'as une idée pour le " Sub Worksheet"

le fichier: (auteur d'origine "Collas" sur Applications Excel)

https://www.excel-pratique.com/~files/doc/CalendrierAnnuel3.xls

à te lire

Claude.

je regarde et je te dis si je trouve une solution

a+

Souri84