12917 résultats trouvés

par Steelson
Aujourd’hui, 01:03
Forum : Excel - VBA
Sujet : Aide code rechercher
Réponses : 12
Vues : 115

Re: Aide code rechercher

tu pourrais maintenant dire où cela se trouve? j'ai fait une recherche sur ce que tu as posté au début et je n'ai rien trouvé ! (surtout que je n'aime pas du tout les userform !) Tu préfères placer des TextBoxs, etc.. directement sur la feuille ? Je préfères en effet travailler directement sur une ...
par Steelson
Hier, 17:18
Forum : Excel - VBA
Sujet : Aide code rechercher
Réponses : 12
Vues : 115

Re: Aide code rechercher

jonat28 a écrit :
Hier, 13:58
voici mon fichier si ça peux aider
v1 base stat.xlsm
enfin un fichier, ce qui était indispensable !
tu pourrais maintenant dire où cela se trouve? j'ai fait une recherche sur ce que tu as posté au début et je n'ai rien trouvé ! (surtout que je n'aime pas du tout les userform !)
par Steelson
Hier, 17:17
Forum : Excel - VBA
Sujet : Code fonctionne une fois sur 2 !
Réponses : 16
Vues : 218

Re: Code fonctionne une fois sur 2 !

Oui tu as raison c'est bon, Je suis certain maintenant que le problème venait bien du fait que Range("J7:P25").Value n'était pas toujours pris dans la bonne feuille Quand tu fais des macros, utilise aussi debug.print pour caractériser le problème juste par hasard tu sais comment je pourrai générer ...
par Steelson
Hier, 08:44
Forum : Excel - VBA
Sujet : Lancer un macro en introduisant une valeur dans une cellule.
Réponses : 2
Vues : 31

Re: Lancer un macro en introduisant une valeur dans une cellule.

Bonjour, utilise une procédure événementielle https://www.excel-pratique.com/fr/vba/evenements_feuille.php Private Sub Worksheet_Change(ByVal Target As Range) End Sub teste l'intersection de target avec la cellule en question if intersect(target,range("macellule")) is nothing then exit sub et utilis...
par Steelson
Hier, 01:37
Forum : Excel - VBA
Sujet : Code fonctionne une fois sur 2 !
Réponses : 16
Vues : 218

Re: Code fonctionne une fois sur 2 !

Merci pour le fichier. Il vaut mieux inverser l'ordre de ces 2 instructions : Sheets("client").Activate T_client = Range("J7:P25").Value ou préciser T_client = Sheets("client").Range("J7:P25").Value je ne sais pas comment était lancée cette macro, mais c'est peut-être de là que venait l'erreur si el...
par Steelson
14 décembre 2019, 20:51
Forum : Excel - VBA
Sujet : Limiter le nombre d'utilisateurs à un fichier
Réponses : 1
Vues : 44

Re: Limiter le nombre d'utilisateurs à un fichier

Bonjour,

tu peux t'appuyer sur ceci et limiter le nombre de codes dans le nom "luhn" https://forum.excel-pratique.com/viewtopic.php?f=2&t=133305

ou bien plus simplement tu donnes un mdp, et à chaque fois que le fichier est lu, tu enregistres le username dans un nom (caché) en te limitant à 4 ou x
par Steelson
14 décembre 2019, 20:45
Forum : Excel - VBA
Sujet : Code fonctionne une fois sur 2 !
Réponses : 16
Vues : 218

Re: Code fonctionne une fois sur 2 !

chadyd a écrit :
14 décembre 2019, 16:29
eriiic a écrit :
14 décembre 2019, 12:33
Pourquoi as-tu mis ça ?
i_client = UBound(T_client)
Oui, c'est pour que dès qu'il a trouvé le nom, il sorte de la boucle
En effet, c'est pas con ! Il existe aussi une instruction pour cela :
Exit For
Bon on attend toujours un fichier représentatif...
par Steelson
14 décembre 2019, 20:43
Forum : Excel - VBA
Sujet : Macro pour trouver une celulle vide
Réponses : 6
Vues : 53

Re: Macro pour trouver une celulle vide

Ouvre un autre post pour cela.
par Steelson
14 décembre 2019, 18:05
Forum : Excel - VBA
Sujet : Macro pour trouver une celulle vide
Réponses : 6
Vues : 53

Re: Macro pour trouver une celulle vide

:btres:
par Steelson
14 décembre 2019, 17:05
Forum : Excel - VBA
Sujet : Macro pour trouver une celulle vide
Réponses : 6
Vues : 53

Re: Macro pour trouver une celulle vide

Comme tu es structuré en tableau, mieux vaut utiliser ceci : Sub test() With Sheets("4009").ListObjects(1) .ListRows.Add .DataBodyRange(.ListRows.Count, 1) = Sheets("Ecritures à passer").Range("I2") .DataBodyRange(.ListRows.Count, 4) = Sheets("Ecritures à passer").Range("H2") End With End Sub