2965 résultats trouvés

par vba-new
2 mai 2016, 10:24
Forum : Excel - VBA
Sujet : Afficher la valeur max dans une fenetre
Réponses : 13
Vues : 364

Re: Afficher la valeur max dans une fenetre

Salut mindah,

Sans regarder ton fichier, essaie quelque chose comme ça :
MsgBox "Le " & Format( Date, "dd/mm/yyyy") & ", la valeur : " & taValeur
par vba-new
14 mars 2016, 18:18
Forum : Excel - VBA
Sujet : Double clic sur cellule fusionnée
Réponses : 7
Vues : 333

Re: Double clic sur cellule fusionnée

Salut vbrod,

A défaut d'avoir un fichier exemple, peux-tu mettre la totalité de la macro ?

Sinon, quelle est l'erreur rencontrée ? Sur quelle ligne ?
par vba-new
3 février 2016, 12:56
Forum : Excel - VBA
Sujet : Création de lien hypertexte en boucle sur liste d'onglet
Réponses : 3
Vues : 569

Re: Création de lien hypertexte en boucle sur liste d'onglet

Salut leakim, Première remarque : pourquoi mettre un select ? ActiveSheet.Hyperlinks.Add Anchor:=Range("B" & i) .Select , Address:="", SubAddress:="""'""&ws.Name&""'!CHOIX""", TextToDisplay:="lien" Deuxième remarque : à quoi sert le champ CHOIX ? Je ne le vois pas dans ton fichier. Troisième remarqu...
par vba-new
2 février 2016, 12:13
Forum : Excel - VBA
Sujet : Suppr/Utilisation d'informations sur les doublons
Réponses : 5
Vues : 213

Re: Suppr/Utilisation d'informations sur les doublons

Bonjour à tous,

Pour répondre à une demande de Patrick, une solution en utilisant l'objet Dictionary.
La macro gère également les cas de noms/prénoms avec espace.
par vba-new
1 février 2016, 21:36
Forum : Excel - VBA
Sujet : dico pour remplacer sommeprod
Réponses : 6
Vues : 259

Re: dico pour remplacer sommeprod

Le problème venait de là : [t6].Resize( Dico .Count, 1) = Application.Transpose(Dico2.items) C'est mieux comme ça : [t6].Resize( Dico2 .Count, 1) = Application.Transpose(Dico2.items) Ta plage cible doit être redimensionnée à la même taille que ta plage source. Si ta plage cible est plus grande que l...
par vba-new
1 février 2016, 19:30
Forum : Excel - VBA
Sujet : dico pour remplacer sommeprod
Réponses : 6
Vues : 259

Re: dico pour remplacer sommeprod

Bonjour Patrick, Une solution par dico comme souhaitée. On traite en plus les plages de données dans des variables tableau pour accélerer le traitement. 1/2 s pour environ 30000 lignes chez moi. J'ai commenté le code pour éclaircir. Sub NbClubs() Dim derlign As Long, i As Long Dim tblBenef, tblDisci...
par vba-new
1 février 2016, 07:59
Forum : Excel - VBA
Sujet : remplir selection plusieurs cellules discontinues souris
Réponses : 4
Vues : 314

Re: remplir selection plusieurs cellules discontinues souris

Tant mieux ! :D

Merci de mettre le post en résolu en cochant le petit V vert.
par vba-new
30 janvier 2016, 18:26
Forum : Excel - VBA
Sujet : remplir selection plusieurs cellules discontinues souris
Réponses : 4
Vues : 314

Re: remplir selection plusieurs cellules discontinues souris

Salut manuhell,

Avec quelque chose comme ça ?
For Each cellule In Selection
    'mettre ton traitement ici...
    'exemple :
    MsgBox cellule.Value
Next cellule
par vba-new
27 janvier 2016, 18:13
Forum : Excel - VBA
Sujet : Aide pour une macro (base de donnee immense)
Réponses : 77
Vues : 3157

Re: Aide pour une macro (base de donnee immense)

Bien joué steelson :D Une petite explication pour se coucher moins bête : =SIERREUR(DECALER(INDIRECT("Feuil1!A"&EQUIV("année "&ANNEE($A2);Feuil1!$A:$A;0));JOUR($A2)+1;MOIS($A2)*2);"pas trouvé") En gros : 1. On extrait l'année de la date pour chercher la ligne sur laquelle se trouve "année AAAA" : 05...
par vba-new
26 janvier 2016, 23:26
Forum : Excel - VBA
Sujet : protection cellules sous vba
Réponses : 6
Vues : 127

Re: protection cellules sous vba

Bonjour la bricole, Voici ce que donne l'enregistreur de macro : Sub Macro1() ' ' Macro1 Macro ' ' Range("A1:D7").Select Selection.Locked = False Selection.FormulaHidden = False Selection.Locked = True Selection.FormulaHidden = False End Sub en code optimisé, ça donne ça : Range("A1:D7").Locked = Tr...