7849 résultats trouvés

par h2so4
Hier, 16:07
Forum : Excel - VBA
Sujet : Question optimisation macro
Réponses : 1
Vues : 18

Re: Question optimisation macro

bonjour,

chez moi, la première structure est 30 x plus rapide que la seconde, et cela correspond à ce à quoi je m'attendais (activate et select ont une influence négative sur le temps d'exécution).
par h2so4
Hier, 15:01
Forum : Excel - VBA
Sujet : Formation de groupes par préférences
Réponses : 14
Vues : 157

Re: Formation de groupes par préférences

Bonjour,

voici une nouvelle version, on essaie de former des groupes de 5 et de 4, si possible sinon des groupes de 5 et de 3.
par h2so4
Hier, 11:07
Forum : Excel - VBA
Sujet : Multiplication famille de donnée deuxième niveau
Réponses : 5
Vues : 62

Re: Multiplication famille de donnée deuxième niveau

Bonjour,

voici une formule adaptée à ces cas
par h2so4
18 avril 2019, 16:05
Forum : Excel - VBA
Sujet : Multiplication famille de donnée deuxième niveau
Réponses : 5
Vues : 62

Re: Multiplication famille de donnée deuxième niveau

bonjour,

une proposition, j'ai dû modifier ta colonne item en format texte. j'ai aussi fait la supposition qu'un niveau supérieur précède toujours un niveau inférieur.
par h2so4
18 avril 2019, 12:51
Forum : Excel - VBA
Sujet : Carré magique
Réponses : 6
Vues : 63

Re: Carré magique

bonjour,

solution avec le solveur connaissant S et a
par h2so4
18 avril 2019, 01:45
Forum : Excel - VBA
Sujet : Carré magique
Réponses : 6
Vues : 63

Re: Carré magique

bonsoir

la somme des nombres de -11 à 13 est 25
la somme de chaque ligne et chaque colonne est donc 5, de même les diagonales
remplir le carré connaissant ces infos devient trivial, sans solveur.
par h2so4
17 avril 2019, 12:47
Forum : Excel - VBA
Sujet : Comparer chaine
Réponses : 2
Vues : 24

Re: Comparer chaine

bonjour, une proposition Option Explicit Sub aargh() Dim reponse(), dl&, i&, j&, k&, rep$, dict As Object, mes$, mc$ Set dict = CreateObject("scripting.dictionary") With Sheets("feuil1") dl = .Cells(Rows.Count, 1).End(xlUp).Row ' on charge une table des "reply" For i = 2 To dl If .Cells(i, 1) = "rep...
par h2so4
15 avril 2019, 18:28
Forum : Excel - VBA
Sujet : Débutant VBA - générer un TXT
Réponses : 2
Vues : 50

Re: Débutant VBA - générer un TXT

bonjour,

une proposition
Sub Texte()
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    Open "p:\fiche.txt" For Output As #1
    For i = 2 To dl
        If Cells(i, "D").Value = True Then
            Print #1, "choix=" & Cells(i, "A").Value
        End If
    Next i
    Close #1
End Sub
par h2so4
15 avril 2019, 15:20
Forum : Excel - VBA
Sujet : Recuperer chaine
Réponses : 2
Vues : 29

Re: Recuperer chaine

bonjour

essaie ceci
nom_fichier = Split(Mid(nom_fichier, 24), "_")(0)
par h2so4
14 avril 2019, 15:40
Forum : Google Sheets
Sujet : Importer macro excel vers google sheets
Réponses : 12
Vues : 399

Re: Importer macro excel vers google sheets

Dans ma première réponse