Résultats de la recherche

Bonsoir, J'avoue, mais je ne m'attendais pas à avoir un fichier aussi gros, je pensais à pas plus de 500 lignes et là, +30000. De plus je ne connaissais pas réellement la grande différence de cette déclaration, maintenant ne plus m'en souvenir serait du domaine médical. merci du rappel et des...

Bonjour Oui j'ai du déclarer 3 variables en long et ça fonctionne. Ma macro est nickel L'aide d'excel ne me donnait pas cette solution, oui de temps en temps je regarde merci

Bonjour à tous, Je possède un fichier de plus de 33000 lignes et j'ai une erreur lors de l'exécution de ma macro La ligne donnant l'erreur de dépassement de capacité est : NbLigne = Worksheets("A").Range("A" & Rows.Count).End(xlUp).Row ' Compte le nombre total de ligne utilis?e par le tableau...

Nous sommes en accord oui, le code actuellement est rapide merci pour tes conseils, j'ai appris

Je le fais au fur et à mesure, et pour ta macro je l'ai copié dans le code pour la tester. Ne t'inquiéte pas je prends tes conseils au sérieux, ce n'est pas en vain

L'objet de la discussion, n'a plus d'objet par rapport au titre, donc si j'ai un autre souci, je préfère créer un autre sujet

je vais remettre l'exemple pas de panique, mais ainsi le code sera plus propre Sub Macro2() ' ' Macro2 Macro ' ' Réalisé par Thierry Set VariableObjet = Nothing ' vide press papier' Application.CutCopyMode = False Application.ScreenUpdating = False ' variables pour séparation num de la rue Dim...

Ok merci, celle ci ne garde pas le format des cellule comme les dates : Columns("E:E").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Encore un petit mystère mais pas grave, j'ai compris la syntaxe

Une petite question pourquoi que (là ok) Columns("E:E").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Ne donne pas la même chose que : celui ci ne fonctionne pas Columns("E:E").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Ok pas de souci

Non ce n'est pas que j'y tiens. Mais je préfère un exemple d'écriture que de faire le zozo.

Je te fais ça demain, j'ai faim lol avec le résultat que je dois obtenir , en partant d'un fichier brut et arriver avec une mise en page

ça va m'être utile. ;) top

Oui c'est vrai, étant dans mon truc je n'ai pas pensé aussi simple comme fichier. Merci pour la macro Rien qu'avec tes conseils en tri et le filtre (sans passer par l'enregistreur) je passe de 2mn à 4s en traitement sur mon fichier, alors tu vois un peu, énorme et cela sur un fichier de plus de...

Non je me suis mal exprimé, quand je dis le boulot c'est rendre anonyme le fichier et pour le code oui c'est toi, excellent mais comme tu dis pas facile par message et pour avoir ce que je voulais en faite il suffisait de supprimer le critère et ça je ne savais pas. et sans ton code, je n'aurais...

Je sais tu as raison mais le boulot je viens de trouver, pour activer le filtre et laisser l'affichage il faut cette ligne If Not ActiveSheet.AutoFilterMode Then Cells(1).Resize(fin, 10).AutoFilter Field:=9 End If

Ha oui, le mien me fais un range et toujours la même instruction par contre avec cette ligne Cells(1).Resize(fin, 10).AutoFilter Field:=9, Criteria1:="0" toutes les colonnes sont prise en compte mais j'aimerais que le filtre 9 soit avec la sélection totale et là c'est top

L'enregistreur de macro me donne la ligne Selection.AutoFilter En tout cas j'ai bien avancé garce à toi merci

Oui je l'ai fais et j'ai toujours le manque d'une colonne avec le filtre valide la colonne de A à H ok , il me faudrais la G en plus

oui j'ai bien mon filtre mais il manque la colonne I qui me permet la selection dans le filtre