Discussion :

[dgino]

Quelqu'un pourrait-il m'aider à traduire en vba un algorithme que j'ai écrit en langage naturel s'il vous plait ?
Si ce n'est pas trop compliqué bien sur, je ne me rends pas trop compte car je m'y connais très peu en vba.
je pense exécuter cet algorithme à l'ouverture d'excel mais si il y a mieux à faire, dîtes-moi.
Le voici :

soit nom-feuille une variable de type feuille
nom-feuille = 1

soit num-cellule une variable de type cellule

soir nom-classeur une variable de type classeur

tant que nom-feuille inférieur à 47
faire

nom-classeur = la variable nom-feuille suivi de -PPI.xlsx (par exemple 1-PPI.xlsx)

pour num-cellule de A1 à D20, sauf les cellules vides
(c'est à dire A1, A2...A20, pui B1, B2...B20 etc. jusqu'à D20 sauf les cellules vides)
faire

la valeur de la cellule num-cellule de la feuille nom-feuille
= la valeur de la cellule num-cellule de la feuille A
du classeur nom-classeur dont le chemin d'accès est C:\

fin de la bouche pour

nom-feuille = nom-feuille+1
fin de la boucle tant que

[casefayere]

Bonsoir,

... car je m'y connais très peu en vba....

Alors, il est temps de t'investir un peu en te documentant, je ne connaissais rien non plus et me suis formé seul à l'aide des différents tutos sur internet, je suis encore loin, très loin de tout maitriser

Excuses-moi de te répondre comme ça
bon travail et bon courage

[dgino]

En gros tu me dis : "démerdes-toi" ?
Trop sympa le type...
Même pas une amorce de conseils ou de tuyaux ?
Tu sais c'est pas évident quand on veut faire un truc plutôt compliqué pour un novice.

[Marc-L]

Bonjour.

Faut savoir ce que l'on veut …


Les meilleurs cours et tutoriels pour Excel


Tu peux aussi utiliser l'Enregistreur de macros donnant ainsi une base de code, certes à nettoyer mais c'est toujours cela …

[lelensois16]

Un conseil : lis ce cours.

Comme tu as déjà fait l'algorithme :
je te conseille de lire les chapitres :
- les variables
- les structures décisionnelles
- les boucles

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub test()
 
Dim wbk As Workbook
Dim wsh As Worksheet
 
Set wbk = Workbooks("NomClasseur")
Set wsh = wbk.Worksheets("NomFeuille")
 
wsh.Cells(1, 1) = "hello"
wsh.Range("A1") = "hello"
 
 
End Sub

ATTENTION A NE PAS CONFONDRE FEUILLE ET CLASSEUR.
Un classeur contient X feuilles, chaque feuille contient un ensemble de cellules.


Bon courage à toi, à toi de t'investir au reste.

[dgino]

merci je vais essayé

[casefayere]

Bonjour,

En gros tu me dis : "démerdes-toi" ?
Trop sympa le type...

Tel n'était pas mon propos, on voit trop de personnes qui cherchent à faire faire leur travail par les autres, sinon je ne pense pas que qui que se soit puisse dire que je laisse les gens se demmerder, comme tu le dis si bien. Je ne vois pas ce que je ferais dans ce forum.

Encore désolé que tu ais mal interprété mes propos et bonne journée quand même