Contenu récent par dancar

Merci Dranreb, ton approche va me servir, par contre vu le peu de connaissance que j'ai en VBA j'ai beaucoup de mal à tout comprendre, l'essentiel c'est que ça fonctionne et je m'efforcerai quand même décrypter ton code. Encore merci et bonne journée

Bonsoir, Je cherche à éviter les "Select" dans une boucle "While", j'ai essayé en ajoutant une variable et aussi avec "Address" sans y parvenir. Quelqu'un pourrait-il m'aider ? Je pense plus simple de vous joindre un fichier très simplifié avec juste le code de la boucle concernée plutôt que de...

Je suis d'accord et c'est plus explicite pour moi surtout que je n'ai que quelques notions de VBA. Du coup je découvre que le ":" permet de mettre 2 instructions sur la même ligne de code, mais je vais éviter (pour ma lisibilité) Encore merci à vous tous

Merci Staple1600 Effectivement, pas utile de spécifier le B3, peux-tu me dire à quoi correspond -4121 car si je le remplace par Shift:=xlDown cela fonctionne aussi. C'est un chiffre magique qui veut dire Shift:=xlDown ? Y-a-t-il d'autres chiffres utile à connaître et qui ont une action...

Merci Dranreb, j'étais en train de répondre à Lone-wolf et joindre un fichier , j'avais pas encore vu ta réponse

J'ai sans doute été trop simpliste dans ma demande. Je veux copier des données des colonnes A et B d'un classeur et les insérer sous [A2:B2] de la Feuil1 du classeur Essai. Avec un fichier ce sera mieux.

Bonjour à tous, Copier des cellules vers un autre classeur sans "Select" je sais faire, par exemple : [A2:B2].Copy Workbooks("Essai.xlsm").Sheets("Feuil1").[A3] Mais je ne trouve pas la syntaxe pour faire la même chose mais en insérant les cellules sans passer par des "Select", genre ...

Merci beaucoup, très instructif.

Bonjour à tous et à toutes, Ce post est plus une demande d'explication . Il semble que la méthode Find considère les dates comme des formules et non des valeurs. Par exemple : Sub Macro1 () Dim Trouve As Date Trouve = "23:50" ' Avec cette ligne la date est trouvée à condition qu'il...

En fait j'avais oublié de préciser que je fais "entrée"

Merci Lone-wolf, c'est tout à fait ça, dur dur pour connaître toutes les subtilités.

Merci c'est ce que je fais, tiret du 8 se dit aussi Under score si je me trompe pas Merci cathodique, il me semble que c'est ce que je fais, le tiret du 8 se dit aussi Under score (si je me trompe pas)

Bonjour à tous, J'ai un souci de retour à la ligne, normalement on utilise un Under score (avec un espace avant) mais cela ne fonctionne pas dans cette partie de code : ActiveSheet.Sort.SortFields.Add Key:=[A1],CustomOrder:="HORODATE,DB_PC,EAP_*_PC,EA_*_PC_INJ" Je n'ai mis que quelques...

Les secondes sont bien à 00. Pour que ça fonctionne il faut absolument que le mette les heures au format 00:00:00 (ce que je ne veut pas), LookIn:=xlValues n'est pas indispensable et je doit supprimer Dim Trouve As Date du coup plus besoin de Trouve = "00:00*" , je mets directement...

Chez moi fonctionne oui et non , effectivement si 00:00 n'existe pas je n'ai plus de message d'erreur mais si 00:00 existe il ne le "voit" pas et zap cette partie Range("D4:" & Cible.Offset(-1, 1).Address).Delete Shift:=xlUp .