2965 résultats trouvés

par vba-new
14 mai 2018, 21:54
Forum : Excel - VBA
Sujet : Vba Enregistrement Fichier
Réponses : 14
Vues : 449

Re: Vba Enregistrement Fichier

Bonsoir à tous, En termes de best practices, ne pas oublier de spécifier la propriété FileFormat lors de l'enregistrement. Au risque de se retrouver avec un fichier illisible car le format réel du fichier ne correspond pas à son extension. Et pas besoin du Exit Sub après le ThisworkBook.Close. Les l...
par vba-new
12 mai 2018, 22:28
Forum : Excel - VBA
Sujet : Vba Enregistrement Fichier
Réponses : 14
Vues : 449

Re: Vba Enregistrement Fichier

@Jean-Eric : Merci pour ta remarque. C'est corrigé dans le code plus haut. @LedZep : J'avoue ne pas comprendre ce que tu veux... Le mieux est que tu nous expliques en termes non techniques ce que tu souhaites faire avec ton bouton. Mais on n'est pas loin. Si quelqu'un a mieux compris que moi, n'hési...
par vba-new
12 mai 2018, 15:47
Forum : Excel - VBA
Sujet : bloquer les ascenseurs
Réponses : 6
Vues : 2450

Re: bloquer les ascenseurs

Bonjour BORS, La propriété ScrollArea a la particularité d’être remise à zéro lorsque tu rouvres ton fichier. Il faut donc redéfinir cette zone par macro à l'ouverture du fichier. Voici un exemple de code à mettre dans le module ThisWorkbook : Private Sub Workbook_Open() ThisWorkbook.Sheets("Nom de ...
par vba-new
12 mai 2018, 15:36
Forum : Excel - VBA
Sujet : Vba Enregistrement Fichier
Réponses : 14
Vues : 449

Re: Vba Enregistrement Fichier

Bonjour LedZep, Voici une proposition avec ce que j'ai compris de ta demande et de ton code : Sub Fermeture_Cliquer() Dim sPath As String, sNomFichier As String Dim Reponse As Byte Reponse = MsgBox("Voulez-vous enregistrer les modifications ?", vbYesNo, "Demande de confirmation") If Reponse = vbNo T...
par vba-new
12 mai 2018, 08:28
Forum : Excel - VBA
Sujet : Code VBA police et majuscule
Réponses : 5
Vues : 158

Re: Code VBA police et majuscule

Bonjour à tous, Je passais par là. @MFerrand : notre ami Tacentaure a du corriger pour que ça marche mais une petite coquille s'est glissée dans ton code : .Value = UCase.Value Voici le code corrigé : Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False With Target.Ce...
par vba-new
14 juillet 2016, 01:15
Forum : Excel - VBA
Sujet : extraction de données depuis plusieurs fichiers xls
Réponses : 28
Vues : 14929

Re: extraction de données depuis plusieurs fichiers xls

Bonjour et bienvenue sur le forum MNAAIM, Tu as dû trouver la réponse depuis le temps mais sans tester, voici comment j'aurais fait : .UsedRange.EntireRow.Copy principal.Sheets(1).[a65536].End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
par vba-new
3 juin 2016, 17:37
Forum : Excel - VBA
Sujet : Remplissage d'un "tableau d'adressage" automatique sans VBA
Réponses : 8
Vues : 294

Re: Remplissage d'un "tableau d'adressage" automatique sans

Peux-tu envoyer un tableau correspondant un peu plus à la réalité ?

Une solution avec SOMMEPROD si j'ai bien compris :
=SI(SOMMEPROD(($C$3:$C$12=$E11)*($B$3:$B$12=F$10))<>0;"X";"")
par vba-new
3 juin 2016, 16:39
Forum : Excel - VBA
Sujet : erreur dans mon code VBA
Réponses : 18
Vues : 512

Re: erreur dans mon code VBA

Exemple dans ton code, peux-tu nous dire à quel IF correspond le ELSE suivant ?
.
.
.
.
Else
     Rng1.Offset(1, 0).Value = Rng1.Offset(1, 0).Value + Range("W8").Value
End If
par vba-new
3 juin 2016, 16:36
Forum : Excel - VBA
Sujet : erreur dans mon code VBA
Réponses : 18
Vues : 512

Re: erreur dans mon code VBA

Attention, je ne t'ai pas corrigé le code (je n'ai pas compris grand chose à la logique derrière tes IF, DO, etc). J'ai simplement indenté le code automatiquement pour que tu vois les endroits où tes instructions ne sont pas alignées ! Un mauvais alignement du code signifie que tu ne fermes pas tes...
par vba-new
3 juin 2016, 16:32
Forum : Excel - VBA
Sujet : Remplissage d'un "tableau d'adressage" automatique sans VBA
Réponses : 8
Vues : 294

Re: Remplissage d'un "tableau d'adressage" automatique sans

Bonjour et bienvenue sur le forum pharamond,

Une solution avec cette formule à mettre en F11 et à tirer vers la droite et le bas :
=SI(SOMME.SI.ENS($C$3:$C$12;$B$3:$B$12;Tableau_adressage[[#En-têtes];[A]];$C$3:$C$12;$E11)<>0;"X";"")