bouton valide

[baigneur67]

Bonsoir

Dans le fichier j'ai un bouton de commande "valider" dans la feuil de calcul colonne B (Qte) j'ai des chiffres. Avec le bouton je voudrais que les donner parte dans la feuil DEVIS avec le montant de la colonne F.

Merci de votre aide

 

[allegro50]

Re : bouton valide

Bonsoir Baigneur

Ci-joint une solution a ta question
Dis nous si ca te convient

 

[baigneur67]

Re : bouton valide

Bonjour allegro50

Merci pour la solution
Sur le devis comment faire pour archiver le nom du client le montant TTC et le suivi commercial sous forme de tableau dans une feuil "archive"

 

[allegro50]

Re : bouton valide

Bonsoir Baigneur

Voila un Bouton Archiver et la liste de tes devis s'incremente

 

[baigneur67]

Re : bouton valide

SALUT allegro50

super
Mais le devis suivant doit se mettre a la suite

 

[allegro50]

Re : bouton valide

Baigneur

Oui en effet . C'etait prevu comme ca mais ca ne fonctionne pas et je ne sais pas pourquoi...

Si quelqu'un sur le forum pouvait nous aider je reformule la question

Dim j As Integer
Sheets("Archive").Select
j = Range("A65500").End(xlUp).Row + 1

quelque soit le nb de lignes en colonne A , j est toujours = 2

D'ou cela peut-il venir ?

 

[bqtr]

Re : bouton valide

Bonsoir tous le monde,

Essaye comme ca :

Private Sub CommandButton1_Click()

Dim j As Integer
Sheets("Archive").Select

With Sheets("Archive")
j = .Range("A65500").End(xlUp).Row + 1
.Range("A" & j) = Sheets("DEVIS").Range("H7")
.Range("B" & j) = Sheets("DEVIS").Range("G14")
.Range("C" & j) = Sheets("DEVIS").Range("I52")
.Range("D" & j) = Sheets("DEVIS").Range("D57")
End With
end sub

Cela fonctionne

Bonne Soirée

P.O

 

[allegro50]

Re : bouton valide

Merci bqtr

Ca fonctionne en effet

Mais comment expliquer qu'en dehors du With j ne "bouge "pas ?

 

[bqtr]

Re : bouton valide

Re,

Ben, je suis aussi un peu comme toi, normalement quand tu sélectionnes une feuille tu dois pouvoir travailler dessus !

Le fait de sélectionner la feuille archive ne doit pas être suffisant, il faut aussi indiquer que J se calcul sur la feuille archive.

Private Sub CommandButton1_Click()

Dim j As Integer
Sheets("Archive").Select
j = Sheets("Archive").Range("A65500").End(xlUp).Row + 1
Sheets("Archive").Range("A" & j) = Sheets("DEVIS").Range("H7")
Sheets("Archive").Range("B" & j) = Sheets("DEVIS").Range("G14")
Sheets("Archive").Range("C" & j) = Sheets("DEVIS").Range("I52")
Sheets("Archive").Range("D" & j) = Sheets("DEVIS").Range("D57")

End Sub

Ca fonctionne aussi trés bien. Maintenant le pourquoi du comment, ca je ne pourrai pas te le dire. Quelqu'un de plus calé en VBA devrait pouvoir nous expliquer cette subtilité.


P.O

 

[baigneur67]

Re : bouton valide

BONJOUR bqtr, allegro50

Merci beaucoup pour votre aide tout fonctionne trés bien.

 

[baigneur67]

Re : bouton valide

re,
Dans archivage je peut avoir la feuil "devis" dans un dossier "archive" sur le bureau et qui le classe par N° du devis
merci

 

[allegro50]

Re : bouton valide

bonsoir

La tu me le refais ds l'ordre parce que j'ai rien compris...!!

 

[baigneur67]

Re : bouton valide

re,

Avec le bouton "archive" il faudrait que la feuil "devis" part dans le dossier Archive.

 

[allegro50]

Re : bouton valide

re,

Avec le bouton "archive" il faudrait que la feuil "devis" part dans le dossier Archive.

Si je comprends bien tu veux

• d'une part :constituer une liste de tes devis (ce qui est fait actuellement dans la feuille "Archive")
• d'autre part : creer un Classeur "Archive" où copier les differentes feuilles Devis

Confirme moi si c'est ca, je regarderai demain

 

[baigneur67]

Re : bouton valide

Bonjour allegro50

Oui creer un Classeur "Archive" pour copier les differentes feuilles Devis