Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

récupération informations

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion eauzone
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

eauzone

Guest
bonjour
sur une facture ou un devis j'aimerais pouvoir récupérer des informations telles que:
numero de facture ou devis, nom et prénom de la personne, adresse, montant sur une feuille
ou le tout s'accumule au fur et a mesure.
étant débutant sur excel je ne sais comment faire
merci beaucoup
françois
 

Pièces jointes

Trier par date Trier par votes
Re : récupération informations

Salut,

Tu ne précises pas si tu veux une formule ou une macro, je te propose donc une macro qu'il te suffit de joindre a un bouton :
Code: 
Dim derlig As Integer
With Sheets("RENSEIGNEMENT")
    derlig = .Range("A65536").End(xlUp).Row + 1
    .Range("C" & derlig).Value = Range("C3").Value
    .Range("A" & derlig).Value = Range("F3").Value
    .Range("J" & derlig).Value = Range("C5").Value
    .Range("F" & derlig).Value = Range("G28").Value
    .Range("E" & derlig).Value = Range("G29").Value
    .Range("G" & derlig).Value = Range("G30").Value
    .Range("H" & derlig).Value = Range("G31").Value
    .Range("D" & derlig).Value = Range("G32").Value
    .Range("I" & derlig).Value = Range("G33").Value
End With

Pour mettre un bouton, tu retournes dans ta feuille excel (FACTURE) en haut, tu fais Affichage/Barre d'outils/Visual Basic. La, tu click sur Boites a outils controls et tu choisis ensuite Bouton de commande. Tu places le bouton ou tu le souhaites puis tu doubles click dessus. Tu te retrouves dans Visual Basic (que tu peux également ouvir en faisant Alt+F11). Tu colles le code ci-dessus entre les lignes qui sont deja inscrite.
Ensuite, tu peux fermer la fenetre vba. Il te reste a clicker sur la petite équerre bleue (Désactiver le mode création et a appuyer sur le bouton pour tester la macro).

@+
 
Vote positif 0 Vote négatif
Re : récupération informations

Salut
Petit problème : Si tu veux un système qui serve, il faut aller jusqu'au bout. Il est plus facile de voir tout le problème dans son ensemble et ne réaliser qu'une petite partie, plutôt que de faire pas-à-pas un système dont chaque ajout peut avoir des incidences sur ce qui a été fait précédement (c'est ma vision des choses, na ! 😛).

je n'explique : sauvegarder implique de pouvoir consulter, mais aussi si tu as sauvegarder (crotte, j'ai oublié l'acompte) de pouvoir rectifier, d'interdire les doublons, etc..
Code: 
Sub Save_Fac()
Dim F_S As Worksheet
Dim F_D As Worksheet
Dim L_D As Long
'MEI ================================
Set F_S = Sheets("FACTURE")
Set F_D = Sheets("RENSEIGNEMENT")
L_D = F_D.Range("C65536").End(xlUp).Row + 1
'Transfert ==========================
With F_D
    '.Range("A" & L_D) = f_s.range("")  'Nom ?
    '.Range("B" & L_D) = f_s.range("")  'Prénom
    .Range("C" & L_D) = F_S.Range("C3") 'Facture
    '.Range("D" & L_D) = F_S.Range("") 'Montant
    .Range("E" & L_D) = F_S.Range("G29") 'TVA
    .Range("F" & L_D) = F_S.Range("G28") 'HT
    .Range("G" & L_D) = F_S.Range("G30") 'TTC
    .Range("H" & L_D) = F_S.Range("G31") 'Acompte
    .Range("I" & L_D) = F_S.Range("G33") 'Reste
    .Range("J" & L_D) = F_S.Range("C5") 'Date
End With
End Sub
Certaines incohérence apparaissent entre tes 2 feuilles => mise en commentaire par apostrophe en début d'instructions
TVA : tu sauvegarde le taux (que tu fixes en dur à 19,6 en F29

Donc, là je n'ai fait que donner un principe de fonctionnement, mais ça demande un peu plus de réflexion, avant de te lancer dans le codage.

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
D
  • Résolu(e)
XL 2019 Nouveau Numéro
2 3 4
Réponses
57
Affichages
3 K
patricktoulon
  • Question Question
XL pour MAC Graphique animé
Réponses
11
Affichages
424
Lolote83
L
  • Résolu(e)
XL 2021 Copie de certaines données Excel sur Word
2
Réponses
28
Affichages
1 K
Mathos
  • Question Question
XL 2016 Fichier calcul de prix de revient
Réponses
13
Affichages
809
sousou
  • Résolu(e)
XL 2021 Export d'un Userform au format Docx;
3 4 5
Réponses
60
Affichages
2 K
job75
K
  • Question Question
Microsoft 365 Exercice compte en banque
Réponses
10
Affichages
567
klemasson
K
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
900
picc
P
  • Résolu(e)
XL 2021 Une aide pour optimiser du code VBA
2
Réponses
16
Affichages
703
jeff1494
A
  • Question Question
XL pour MAC Formatage de fichiers de coordonnées
Réponses
10
Affichages
489
agnesd
A
S
  • Résolu(e)
Microsoft 365 [Résolu] Aide sur gestionnaires de noms + liste déroulante en cascade associée
Réponses
9
Affichages
1 K
djidji59430
D
  • Question Question
XL 2021 Liste déroulante et RECHERCHEV
Réponses
5
Affichages
630
Dubuyz1
D
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
Y
  • Question Question
Microsoft 365 Filtre permanent ou recherche V
Réponses
4
Affichages
413
Omni
O
P
  • Question Question
Microsoft 365 Publipostage avec Excel
Réponses
10
Affichages
1 K
Sequoyah
R
  • Question Question
Microsoft 365 Api base adresse nationale .gouv
Réponses
1
Affichages
703
ricoben
R
I
  • Question Question
XL pour MAC Xlsm - Fichier permettant de gérer un cross d'établissement scolaire
Réponses
8
Affichages
706
iruri
I
H
  • Résolu(e)
Microsoft 365 Incrémentation d'un numéro de devis/facture
2
Réponses
24
Affichages
3 K
dysorthographie
C
  • Question Question
XL 2013 erreur dans une formule excel Sommeprod
2
Réponses
25
Affichages
1 K
Cattitude
C
S
  • Résolu(e)
Microsoft 365 Formule qui me permet de regrouper les résultats de plusieurs lignes en fonction d'une recherche par nom
Réponses
9
Affichages
522
Sylvia57
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…