Microsoft 365 Ajout de devis sur fichier Excel

darnal77 à dit:

vous avez besoin du fichier ? C'est ça ?

Cliquez pour agrandir...

soan à dit:

Bonsoir Darnal77, Phil,

bienvenue sur le site XLD ! 🙂

* regarde ton nouveau cadre en A9:C15 ; attention : j'y ai fait beaucoup de modifications, qui ne se voient pas au premier abord ! 😁 😜

* note que c'est vide en A28:F28, et dessous aussi ; est-ce que les données que j'ai déjà saisies dans le cadre te plaisent ? oui ? tu en es sûr ? alors au choix : fais Ctrl e ou clique sur le bouton bleu. 🙂 c'est ok pour la ligne 28 ; refais Ctrl e ; c'est ok pour la ligne 29 ; refais Ctrl e ; c'est ok pour la ligne 30 ; etc...​

---

code VBA de Module2 (18 lignes) :

VB:

Option Explicit

Sub CpyCadre()
  Dim lig&: Application.ScreenUpdating = 0
  lig = Cells(Rows.Count, 1).End(3).Row + 1
  If lig < 28 Then lig = 28
  With Cells(lig, 1)
    .Value = [B9]         'N° Devis
    .Offset(, 1) = [B10]  'STS
    .Offset(, 2) = [B11]  'DV Réalisé
    .Offset(, 3) = [B12]  'Technicien
    .Offset(, 4) = [B13]  'Client
    .Offset(, 5) = [B14]  'Objet
  End With
  'désélectionne le bouton bleu :
  ActiveCell.Select
End Sub

soan

Cliquez pour agrandir...

Phil69970 à dit:

Bonjour @darnal77 , Soan

Je te propose ce fichier

@merci de ton retour

@Phil69970

Cliquez pour agrandir...

darnal77 à dit:

j'aimerais bien savoir comment tu as fais, c'est juste une macro ?

Cliquez pour agrandir...

Phil69970 à dit:

Bonjour @darnal77 et Soan


Oui c'est une macro
Dans cette version j'ai mis des commentaires dans la macro et j'ai rajouté l’effacement des données C9-C14

Si la solution te convient n’oublie pas de la valider
Merci de ton retour

@Phil69970

Cliquez pour agrandir...

darnal77 à dit:

Dans un premier temps, merci, tu as parfaitement ciblé ma demande et ta réponse est PARFAITE, c'est exactement ce dont j'avais besoin.

Cliquez pour agrandir...

darnal77 à dit:

il y'a une possibilité d'effacer les données une fois qu'elles sont copiées dans les lignes ?

Cliquez pour agrandir...

darnal77 à dit:

Comment tu as fait ? c'est juste une macro ? ou il y'a aussi une programmation ?

Cliquez pour agrandir...

Option Explicit

Sub CpyCadre()
  Dim lig&: Application.ScreenUpdating = 0
  lig = Cells(Rows.Count, 1).End(3).Row + 1
  If lig < 28 Then lig = 28
  With Cells(lig, 1)
    .Value = [B9]         'N° Devis
    .Offset(, 1) = [B10]  'STS
    .Offset(, 2) = [B11]  'DV Réalisé
    .Offset(, 3) = [B12]  'Technicien
    .Offset(, 4) = [B13]  'Client
    .Offset(, 5) = [B14]  'Objet
  End With
  'efface les données initiales du cadre
  [B9:C15].ClearContents
  'désélectionne le bouton bleu :
  ActiveCell.Select
End Sub

soan à dit:

Bonjour Darnal, Phil,

j'ai dû m'absenter presque toute la journée, et je viens de lire ton post #9.​

merci pour ton retour ! 😊 pour le cadre, j'espère que tu as remarqué tout ceci :

* il y a plus de place pour écrire l'Objet, car il y a 2 lignes ; avant, sur une seule ligne, la place était beaucoup trop restreinte ! j'ai même été tenté de mettre 3 lignes, mais vu la largeur de la colonne F, et comme tu écris tout le texte en majuscules, je me suis dit que c'est mieux de laisser 2 lignes ; je veux dire qu'avec 3 lignes, le texte en majuscules n'aurait pas tenu en entier en F28 ou au dessous ; si jamais tu préfères quand même 3 lignes, je peux te faire une autre version. 🙂 c'est pas seulement la présentation du cadre qu'il faudra changer : c'est aussi des instructions VBA.

* voici toutes les fusions que j'ai faites : B9:C9 ; B10:C10 ; B11:C11 ; B12:C12 ; B13:C13 ; B14:C15.​

---

oui, c'est fait dans la nouvelle version du fichier joint dans ce post.​

---

oui, c'est avec une macro ; cette macro est écrite en VBA, qui est le langage de programmation d'Excel ; plus exactement toutes les applications Office utilisent VBA, et VBA est le sigle de Visual Basic for Applications.

dans VBA, il y a une base commune à toutes les applications, qu'on peut appeler le « noyau » de VBA (en anglais : kernel) ; en plus de cette base commune, il y a des ajouts particuliers pour prendre en compte les spécificités de l'application ; exemples : avec Excel, il faut gérer les feuilles de calcul, les autres feuilles comme les feuilles graphiques, les cellules... ; avec Word, il faut gérer le texte, les paragraphes, les styles de police et les styles de paragraphe... ; avec PowerPoint, il faut gérer les présentations graphiques, les diapositives... ; avec Access, il faut gérer les tables de données, les requêtes, les formulaires, les états...​

---

nouveau code VBA de Module2 avec effacement
des données du cadre après la copie (20 lignes) :

VB:

Option Explicit

Sub CpyCadre()
  Dim lig&: Application.ScreenUpdating = 0
  lig = Cells(Rows.Count, 1).End(3).Row + 1
  If lig < 28 Then lig = 28
  With Cells(lig, 1)
    .Value = [B9]         'N° Devis
    .Offset(, 1) = [B10]  'STS
    .Offset(, 2) = [B11]  'DV Réalisé
    .Offset(, 3) = [B12]  'Technicien
    .Offset(, 4) = [B13]  'Client
    .Offset(, 5) = [B14]  'Objet
  End With
  'efface les données initiales du cadre
  [B9:C15].ClearContents
  'désélectionne le bouton bleu :
  ActiveCell.Select
End Sub

soan

Cliquez pour agrandir...