Résultats de la recherche

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...

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 ...

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...

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...

Bonsoir à tous, La portion de code suivante ne fonctionne pas si "00:00" est absent de la recherche Dim Trouve As Date FinCol = [E4].End(xlDown).Address 'Fin colonne E 'On recherche le premier 00:00 Trouve = "00:00" Cible = Range("E4:" & FinCol).Find(What:=Trouve...

Bonjour à tous, Dans la colonne 5 d'une feuille j'ai des heures au format hh:mm Pour simplifier et surtout pour éviter les multiple Select de la boucle, j'ai remplacé cette portion de code : 'On recherche le premier 00:00 de la colonne 5 If Hour([E4]) = 0 And Minute([E4]) = 0 Then GoTo 1...

Bonsoir à toutes et à tous, Dans une cellule je voudrai mettre une formule qui me renvoie le plus petit nombre de la colonne A depuis (A1) mais seulement jusqu'au plus grand nombre de cette même colonne. Bien sûr la plage utilisée de la colonne A évolue dans le temps, je pensai le faire en...

Bonjour à toutes et à tous, J'ai besoin de tester si la cellule E4 qui est au format heure 00:00 contient bien 00:00 quelque soit le jour. je le fais via l'extrait de code suivant qui fait référence à un test logique dans la cellule AC3. If [AC3] = FAUX Then 'le test dans AC3 est...

Bonjour à toutes et tous, Voici mon problème avec CurrentRegion : J'ai la plage C5:J58 qui contient des formules et cette plage est entourée de cellule vide et sans formule. Dans C5:J58 il n'y a que C5:J13 qui contient des valeurs. Je voulais avec CurrentRegion récupérer que les valeurs de...

Bonjour à toutes et tous, Je cherche à compter les cellules de 2 plages dont seulement les minutes sont différentes de 00, 10, 20, 30, 40 et 50 via une formule du genre : NB.SI(ET(plage;MINUTE <>00; plage;MINUTE <>10; plage;MINUTE <>20;plage;MINUTE <>30; plage;MINUTE <>40; plage;MINUTE <>50)...

Bonjour à tous et à toutes, Après avoir fait des recherches sur Internet et dans divers forum, je n'ai pas trouvé la solution au problème suivant : J'ai un fichier au format xlsm avec des cellules au format "Comptabilité" (que je souhaite conserver) cependant, lorsque je l'enregistre via une...

Bonjour à tous, Dans une macro je supprime les doublons en fonction de 2 colonnes, par exemple colonne 1 et 2, l'extrait de code suivant fonctionne bien: Range("A1").CurrentRegion.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes Ceci dit l'emplacement des colonnes peut être...

Bonjour à tous, je souhaite mettre un fond jaune à la cellule contenant le plus grand nombre pour chacune des colonne B, C et D. j'ai trouvé sur un forum le code suivant pour la colonne "B". Columns.Find(Application.Max([B:B])).Interior.ColorIndex = 6 Mais pour la colonne "D" il ne...