Discussion :

[kikijoli]

Bonjour à tous,

Voilà j'entre en BTS IG l'année prochaine en alternance, j'ai donc besoin pour cela d'une entreprise qui me prenne.
J'ai trouvé une entreprise mais celle-ci m'a donné un TP a faire. J'ai tout réussi les doigts dans le nez mais je ne connais rien au VBA et ils me demandent de faire un exercice :



Si vous pouviez me fournir le code ce serait d'une grande aide !!
Bien sur j'apprends moi meme le VBA en ce moment mais l'échéance est demain et j'ai absolument besoin de cette entreprise !!

Merci

EDIT : je ne sais meme pas faire un bouton sous excel.

[Faladin]

1-

Tu n'es pas dans le bon forum...
Va voir plutôt du côté de http://www.developpez.net/forums/forumdisplay.php?f=289

2-

Ça frôle l'indécence que de copier un code VBA relativement simple pour une entrevue...Si tu sais pas le faire moi je serais plutôt d'avis d'être honnête envers l'entreprise...

3-

Ya une fonction dans excel qui s'appelle "Record MAcro". Fait ce que tu veux avec des clics de souris, enregistre ça et va ensuite voir dans le VBA de excel ce qu'il a fait...Alt+F11

[Philippe Vialatte]

Ça frôle l'indécence que de copier un code VBA relativement simple pour une entrevue...Si tu sais pas le faire moi je serais plutôt d'avis d'être honnête envers l'entreprise...

Surtout que si tu leur dis que tu ne connais pas, ils seront plus indulgents pendant ton stage, et ils te laisseront surement une chance de te former...que si tu dis que tu connais, ils s'attendront a ce que tu connaisse

[Danyel]

Tu n'es pas dans le bon forum...
Va voir plutôt du côté de http://www.developpez.net/forums/forumdisplay.php?f=289

Effectue

[Faladin]

Quand est-ce que je reçois mon tag de modérateur?

[helios77]

Voilà un fichier qui fait ce dont tu as besoin

Par contre, essaie quand même de le comprendre un minimum... je l'ai programmé de façon simple à piger pour un novice....

Si çà peut t'aider à rentrer dans cette entreprise pour ton BTS, tant mieux.....

[jolzeviking]

Wahh hellios77 c'est peut-être un peu violent pour un novice à comprendre comme macro?

[helios77]

tu plaisantes ou koi.....
Ca aurait été violent, si j'avais regroupé les 4 boucles en une seule dans une fonction à part avec des passages de paramètres.....

La je ne peux pas être plus clair

[Philippe Vialatte]

tiens, pour rire,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Generic(estEnligne As Boolean)
 
    Dim index, x, y As Integer
 
    For index = 2 To 6
        If estEnligne Then
            x = index: y = 2
        Else
            x = 2: y = index
        End If
        Cells(x, y).Value = ""
        Cells(y, x).Value = index - 1
    Next
 
End Sub