Salut =)

juste comme ça, entre parenthèse on va dire, Excel n'est pas terrible pour gérer des données telles que des prépa de commandes. cela devient vite une usine à gaz, et l'on trouve très rapidement les limites d'excel. Mais ceci dit, tu peux librement continuer ton appli sur Excel =)

alors, pour la 1è macro, tu saisis les données directement dans les cellules à la mano ? Le mieux est de faire une "user form" avec tous les champs à remplir, de les stocker dans des variables, de les transmettre au fichier Word puis de les enregistrer dans la seconde feuille du classeur excel. c'est plus joli, plus pratique, peut-être un peu + dur, mais plus satisfaisant qd tu auras fini =)

voila ++

Bonjour EmieCub,

En supposant que :
- quand tu lances ta macro, ta feuille active est celle dans laquelle tu fais ta saisie,
- ta feuille d'archives s'appelle "Archive"
- la plage que tu veux y copier est (C7:G43), et que tu veux la copier juste en dessous de l'archivage précédent,

    NomFeuille=ActiveSheet.Name
    Application.ScreenUptating = False
    Range("C7:G43").Copy
    With Sheets("Archive")
        .Activate
        LigDispo = .Range(Cells(65536, 1), Cells(65536, 1)).End(xlUp).Row + 1
        .Range(Cells(LigDispo, 1), Cells(LigDispo, 1)).Select
    End With
    ActiveSheet.Paste
    Sheets(NomFeuille).Activate
    Application.ScreenUptading = True

Cher(e)s ami(e)s,
salut,
j'ai un problème sérieux dans la compréhension des algorithmes de progranmmation et voudrai avoir une orientation sur un site où je pourrai trouver des amples informations dudit cours
Merci anticipativement.

Bonjour,

Je voulais d'abord remercier DestyNov@ et Armojax pour leur aide et leurs précieux conseils!
J'ai choisi de suivre l'idée de DestyNov@, c'est à dire de faire une userform pour saisir les données de ma commande.

Jusque là, je m'en sors pas trop trop mal grâce aux sites consacrés à excel et aux forums! Mais là je reviens vers vous parce que je bloque sur un truc qui doit certainement etre très simple!!

J'ai mon UserForm1 à l'interieur duquel j'ai desTextBox (j'en ai mis 6 au total), ainsi que 2 boutons pour valider, et un bouton pour fermer.
Je suis parvenue à renvoyer les 4 premiers textbox dans ma feuille excel comme je le souhaitais grâce au premier bouton pour valider ! Et oui, j'ai gagné cette bataille, mais pas encore tout à fait la guerre!!

Mon souci est le suivant :
Je souhaite grâce au second bouton pour valider (son nom = Valider), renvoyer les données qui ont été saisies vers :
- Pour la textBox4 : vers la cellule A20
- Pour la textBox5 : vers la cellule C20
Mais je voudrai également qu'en clikan sur mon Valider, les données soit transférés certes, mais que les TextBox soit aussi effacé! Comme ça je peux resaisir des données dans ces deux textBox, rappuyer sur Valider (qui renverra les données en A21 et C21), et ainsi de suite...

Pour le bouton qui ferme l'userform, c'est bon, ça, j'ai réussi! Je sais c'etait le plus simple, mais ca fait tellement du bien de vaincre la machine!!!

J'espere que j'ai été assez claire dans mon explications!!!
Je remercie d'avance celui(elle) qui me repondra!!
Je pense que ca doit etre possible de le réaliser, mais je blok vraiment sur les codes à mettre pour arriver à ce que j'ai besoin!!

Vraiment encore merci d'avance!

EmieCub

Bonjour Armojax,

D'abord, je voulais te remercier pour ta réponse aussi rapide!! En effet, le code que tu m'as donné marche nikel pour effacer les textbox!
Mais en fait, j'avais un autre pb sur ces codes :
Je voudrai que ca envoi les données des textbox dans les cellules A20 et C20, mais que ca puisse, à la ressaisi, renvoyer les suivantes en A21 et C21, puis A22 et C22, etc...

Voilà ce que j'ai pour l'instant :
Private Sub Valider_Click()
[A20] = UserForm1.TextBox4
[C20] = UserForm1.TextBox5

TextBox4.Value = ""
TextBox5.Value = ""

End Sub

J'avais vu sur un site un code de type (A20:A), apparemment pour indiquer qu'on envoit vers les cellules vides de la colonnes A à partir de A20, mais ca ne marche pas!!

Je sais pas si je t'ai mieux expliqué mon souci!!

En tout cas, encore merci pour les renseignements précédents et merci d 'avance pour les prochains!!!!!

Emilie

Bonjour Emilie,

Tu as la solution de gérer un petit compteur (Integer) que tu incrémentes à chaque nouvelle saisie.
Si on l'appelle "I", au lieu d'alimenter :
[A20]
tu alimentes :
[A20].Offset(I, 0)
en faisant varier I à partir de 0.

Bon VBA, bonne journée et bon week-end !
Armojax.

Regarde dans l'aide vba la propriété end
elle est pas belle, la vie ?

Bonjour,

Me revoilà, certes avec une semaine de retard, mais je tenais quand même à remercier Armojax (et Random) pour leurs réponses et conseils!!!

Je suis finalement bien fière de dire que je suis arriver à faire ce que je voulais sur excel!! Quel bonheur d'arriver enfin, après lutte acharnée, à vaincre la machine!!!:)

Je m'attaque maintenant à quasiment la dernière partie de ma tâche, càd lier certaines de mes colonnes d'excel à une table d'access. Et là, c'est pas gagné!!!

Malgré tout, je vais aller jeter mes yeux vers les posts antérieurs, sait-on jamais!!! Mais je ne promets donc pas de ne pas revenir faire appel à vos lumières qui m'ont permis d'être sur la bonne voie dès le début!!!

Alors encore merci, c'est un peu grâce à ce forum et à vous que j'ai pu bien avancer sur mon projet et découvrir VBA (et comprendre!!) !!! Et certainement à très bientôt!

Emilie

Bonjour,

je cherche à créer un document type avec word, dans lequel devra figurer un numéro référence qui changera dans l'ordre croissant, chaque fois que j'utiliserai ce document, de façon à pouvoir suivre la numérotation et l'archivage des différents courrriers de l'entreprise.

j'aimerais également que lors de la fermeture de ce document qu'une partie de la référence et la date du jour nomme automatiquement ce document.

je vous en remercie d'avance, si vous pouvez m'éclairer car je ne comprends strictement rien aux macros.

Nora

Bonjour

Je débute en visual basic et j'ai un problème .
Je voudrai à l'aide d'une commande (cmdsuivant) aller de la form1 ,où la commande se trouve ,jusqu'à la page form2.
Et aussi savoir comment faire pour pouvoir utiliser la touche retour arrière quand j' ai paramètré un textbox en ascii pour qu'il ne puisse afficher que des chiffres.

Private Sub Text8_KeyPress(KeyAscii As Integer)

If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0

End Sub

Merci