P

Jeune membre

Inscrit le :23/01/2022
Dernière activité :03/08/2022 à 23:22
Version d'Excel :VBA
Messages
13
Votes
1
Fichiers
0
Téléchargements
0
SujetsMessagesStatistiquesVotes reçus

Messages postés par PierFran

DateAuteur du sujetSujetExtrait du message
18/05/2022 à 18:40PierFranInputbox déclaration DIMMerci pour l'information Bonne journée...
18/05/2022 à 18:01PierFranInputbox déclaration DIMCette première macro nommée Essai1 fonctionne. Sub essai1() col = 2 Set LastRow = Cells(rows.Count, col ).End(xlUp).Offset(1, 0) For z = LastRow.Row To 1 Step -1 If Cells(z, col ).Value = "" Then Cells(z, col ).Delete Next z End Sub Cependant l'utilisation d'un Inputbox pour identifier la colonne ne...
15/05/2022 à 17:02PierFranUtiliser la fonction like avec une variableMerci...
15/05/2022 à 16:56PierFranUtiliser la fonction like avec une variableSub test() Set F = Sheets("Liste") For Each c In F.Range("A1:a" & F.[A10000].End(xlUp).Row) If c.Formula Like "nom*" Then c.Font.ColorIndex = 3 Next End Sub Je voudrais remplacer nom par une variable. Par exemple par activecell.formula Alors comment écrire la macro suivante ? Merci Sub test(...
18/03/2022 à 17:11PierFranEnregistrer un classeur en Excel (xlsx)La solution est bonne Merci à tous...
18/03/2022 à 16:18PierFranEnregistrer un classeur en Excel (xlsx)J'ai corrigé mais j'ai toujours un code d'erreur. Merci pour votre réponse...
18/03/2022 à 15:49PierFranEnregistrer un classeur en Excel (xlsx)Sub save_as_excel() nom =range("A1").value je veux enregistrer seulement le classeur "Feuil1") renommer selon la variable "nom" en format excel dans le dossier suivant "C:\Users\dossier \sous-dossier\Comptabilité\" & nom end sub J'utilise Microsoft excel 2010 J'ai un message d'erreur avec nom = Rang...
11/02/2022 à 15:33Nrev74Portion de code ralentissant beaucoup le temps d'exécutionPeut-être ceci pourrait aidé un peu à partir de : .Cells(i, 12).NumberFormat = "@" ou remplacer toutes lignes dont seulement le numéro de colonne change for j = 12 to 28 .cells(i,j).numberformat = "@" next...
11/02/2022 à 14:57Nrev74Portion de code ralentissant beaucoup le temps d'exécutionPlacer au début de vottre macro Sub turns_off_applications() With Application .Calculation = xlCalculationManual .ScreenUpdating = False .DisplayStatusBar = False .EnableEvents = False End With End Sub Placer à la fin Sub turns_on_applications() With Application .Calculation = xlCalculationAutomatic...
08/02/2022 à 17:46AE74Comparaison - différences entre deux fichiersDésolé j'ai oublié de mettre la macro...
08/02/2022 à 16:33AE74Comparaison - différences entre deux fichiersJe vous joint un fichier. J'ai sélection la plage A4 :Q26 de la feuil1 et la même plage feuil2 Les même cellules qui ont la même valeur des deux plages sont indiquées en rouge. Donc les différences sont en noir. Cliquer sur le bouton Comparer valeurs Feuil1...
07/02/2022 à 18:18AE74Comparaison - différences entre deux fichiersVoici peut-être une solution à votre demande. La macro vous demande la plage à comparer...
28/01/2022 à 16:57PierFranComparer deux plages de données (VBA)Deux plages de données sont sélectionnées et les valeurs communes ou identiques sont formatées "couleur de police en rouge"...