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

XL 2010 copier dans la bonne ligne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion loul03
  • 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
L

loul03

XLDnaute Occasionnel
Bonjour,

j'ai fait un classeur simplifié de ce que je voudrais obtenir par vba, mais que je n'arrive pas à mettre en place.

j'aimerais que la macro vienne remplir la ligne de chacun des élèves (dans l'onglet Feuil1) en fonction du prenom choisi dans l'onglet 2 .
ca semble trop simple, mais c'est pour ensuite ajouter à un code vba plus compliqué.

par avance merci
loul03
 

Pièces jointes

Trier par date Trier par votes
loul03 à dit:
Bonjour,

j'aimerais que la macro vienne remplir la ligne de chacun des élèves

loul03
Cliquez pour agrandir...
Bonjour,
Ceci, attribué au bouton 'Enregistrer' fait ce qui est demandé
VB: 
Sub Enregistre()
Dim lig As Long
lig = Application.Match([feuil2!c2], [feuil1!b1:b1000], 0)
With Feuil1
.Range("d" & lig) = [b4]
.Range("e" & lig) = [b5]
.Range("f" & lig) = [b6]
End With
End Sub

*Je ne suis pas certain que ce soit une bonne manière pour constituer une base de donnée
 
Vote positif 0 Vote négatif
bonjour,

je n'ai pas saisi où tu avais créer ton userform?

sinon , sais tu m'aider pour mettre bien en forme cette formule vba (pour un autre classeur)
feuil2.Cells(lig,46)=if(freq="Annuelle",freq+365,if(freq="Mensuelle",freq+30,if(freq="+ 100 000km",km+100000,""""))))

par avance merci
 
Vote positif 0 Vote négatif
Re...
Cet userform est celui natif d'Excel, il n'est pas nécessaire de le créer.
il est appelé par l'instruction vba
ActiveSheet.ShowDataForm
En ce qui concerne "pour mettre bien en forme cette formule vba"
Il est impossible de donner une aide sur cette formule sans connaître le contexte.
 
Vote positif 0 Vote négatif
ok merci de l'info

Dim lig, k
lig = Application.Match(Val(Num_demande), Feuil2.[A1:A65000], 0)
Feuil2.Cells(lig, 10) = Me.DTPicker1 = Now 'valeur en numeric et non en text
Selection.NumberFormat = "m/d/yyyy"
Feuil2.Cells(lig, 11) = Val(Km) 'valeur en numeric et non en text
Feuil2.Cells(lig, 13) = freq
Feuil2.Cells(lig, 14) = presta
Feuil2.Cells(lig, 15) = Ent_1
Feuil2.Cells(lig, 16) = Val(tpe1)
Feuil2.Cells(lig, 17) = Ent_2
Feuil2.Cells(lig, 18) = Val(tpe2)
Feuil2.Cells(lig, 19) = Ent_3
Feuil2.Cells(lig, 20) = Val(tpe3)
Feuil2.Cells(lig, 21) = Ent_4
Feuil2.Cells(lig, 22) = Val(tpe4)
Feuil2.Cells(lig, 23) = Ent_5
Feuil2.Cells(lig, 24) = Val(tpe5)
Feuil2.Cells(lig, 25) = Ent_6
Feuil2.Cells(lig, 26) = Val(tpe6)
Feuil2.Cells(lig, 27) = Ent_7
Feuil2.Cells(lig, 28) = Val(tpe7)
Feuil2.Cells(lig, 29) = Rep_1
Feuil2.Cells(lig, 30) = Val(tpr1)
Feuil2.Cells(lig, 31) = Rep_2
Feuil2.Cells(lig, 32) = Val(tpr2)
Feuil2.Cells(lig, 33) = Rep_3
Feuil2.Cells(lig, 34) = Val(tpr3)
Feuil2.Cells(lig, 35) = Rep_4
Feuil2.Cells(lig, 36) = Val(tpr4)
Feuil2.Cells(lig, 37) = Rep_5
Feuil2.Cells(lig, 38) = Val(tpr5)
Feuil2.Cells(lig, 39) = Rep_6
Feuil2.Cells(lig, 40) = Val(tpr6)
Feuil2.Cells(lig, 41) = Rep_7
Feuil2.Cells(lig, 42) = Val(tpr7)
Feuil2.Cells(lig, 43) = Sum(tpe1 + tpe2 + tpe3 + tpe4 + tpe5 + tpe6 + tpe7 + tpr1 + tpr2 + tpr3 + tpr4 + tpr5 + tpr6 + tpr7)
Feuil2.Cells(lig, 44) = Val(Montant_rep)
NumberFormat = "#,##0.00 $"
Feuil2.Cells(lig, 45) = Commentaire
Feuil2.Cells(lig, 46) = if(freq=""Annuelle"",freq+365,if(freq=""Mensuelle"",freq+30,if(freq=""+ 100 000km"",km+100000,""""))))

j'ai sur un 3ème onglet des cellules qui portent les noms présents dans la formule comme REP_1 Ent_7 et je veux les recopier sur la ligne correspondant au numéro de demande (inscrit en colonne A sur la feuil2 et correspondant à lig) . . ma case freq est une liste déroulante en fonction de laquelle je souhaiterais avoir sur la feuil2 le calcul qui se fait. sauf que vba me met erreur d'expression
 
Vote positif 0 Vote négatif
loul03 à dit:
oui

ces formules apparaissent dans le valider du USERFORM 1. (bouton "saisie réparation")

autre chose, si tu sais me dire comment on met une DTpicker=now ce serait cool de ta part

en espérant
Cliquez pour agrandir...
Re...
Dans ton projet " freq" est un combobox qui peut prendre comme valeur

La cellule "Feuil2.Cells(lig, 46)" doit contenir
Feuil2.Cells(lig, 46) = if(freq=""Annuelle"",freq+365,if(freq=""Mensuelle......
Freq+365 ???
ou
freq+30 ???
Je m'interroge de ce que tu souhaites obtenir.

Edit:
Pour DTpicker
VB: 
Private Sub UserForm_Initialize()
Me.DTPicker1.Value = Now
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
loul03 à dit:
je pars d'une date d'entretien et je veux si la fréquence est annuelle ajouter 365 jours, 30jours quand c'est mensuel et +100000 quand cest 100000km
Cliquez pour agrandir...
Re..
Cela pourrait ressembler à ceci
Code: 
'------------------
If Me.freq.Value = "Annuelle" Then Feuil2.Cells(lig, 46) = Feuil2.Cells(lig, "j") + 365
If Me.freq.Value = "Mensuelle" Then Feuil2.Cells(lig, 46) = Feuil2.Cells(lig, "j") + 30
If Me.freq.Value = "+ 100 000km" Then Feuil2.Cells(lig, 46) = Feuil2.Cells(lig, "K") + 100000
'------------------
 
Vote positif 0 Vote négatif
bonjour

j'ai mis ca


If Me.freq.Value = "Annuelle" Then Feuil2.Cells(lig, 46) = Feuil2.Cells(lig, 10) + 365
ElseIf Me.freq.Value = "Mensuelle" Then Feuil2.Cells(lig, 46) = Feuil2.Cells(lig, 10) + 30
ElseIf Me.freq.Value = "+ 100 000km" Then Feuil2.Cells(lig, 46) = Feuil2.Cells(lig, 11) + 100000
ElseIf Me.freq.Value = "Imprévu" Then Feuil2.Cells(lig, 46) = """"
Else
End If

mais il me répond erreur de compilation else sans if
 
Vote positif 0 Vote négatif
Re...
Essaye
'--------------
Feuil2.Cells(lig, 46) =""
If Me.freq.Value = "Annuelle" Then Feuil2.Cells(lig, 46) = Feuil2.Cells(lig, "j") + 365
If Me.freq.Value = "Mensuelle" Then Feuil2.Cells(lig, 46) = Feuil2.Cells(lig, "j") + 30
If Me.freq.Value = "+ 100 000km" Then Feuil2.Cells(lig, 46) = Feuil2.Cells(lig, "K") + 100000
'--------------
 
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

Discussions similaires

J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
403
AtTheOne
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
397
Phil69970
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
268
StéphaneDeLà
S
G
  • Question Question
XL 2016 Formule INDEX EQUIV retourne #Ref
Réponses
3
Affichages
191
gaelle56
G
M
  • Question Question
Power Pivot Formule REMOVEFILTERS
Réponses
1
Affichages
143
merinos-BernardEtang
  • Question Question
Microsoft 365 ajouter une formule dans une ligne de code
Réponses
5
Affichages
230
Dranreb
A
  • Question Question
XL 2021 Macro copier dans un fichier Excel sur Sharepoint
Réponses
1
Affichages
403
vgendron
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
554
sylvanu
J
  • Résolu(e)
XL 2016 doublons en ligne
Réponses
10
Affichages
500
jgrz
J
P
  • Question Question
Microsoft 365 Joindre un fichier PDF dans un mail + inclure date envoi du mail dans un autre onglet
Réponses
1
Affichages
615
kiki29
Y
  • Question Question
Microsoft 365 VBA - Basculer des lignes d'onglet en onglet selon un critère
2
Réponses
18
Affichages
992
yanus
Y
L
  • Résolu(e)
Microsoft 365 Ratio dans un TCD
Réponses
4
Affichages
468
Laurent78
L
R
  • Question Question
XL 2010 Copie de plusieurs plages de cellules spécifiques dans le presse-papier
2
Réponses
20
Affichages
709
Dranreb
E
  • Question Question
Microsoft 365 Formule excel pour utiliser la dernier donnée d'une ligne dans une formule
Réponses
8
Affichages
435
emmanuel.conche
E
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
459
Abi23
A
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
738
AtTheOne
S
  • Question Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
1 K
fanch55
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
579
vgendron
E
  • Résolu(e)
Microsoft 365 POWER QUERY Pivoter la colonne
Réponses
14
Affichages
571
eric72
E
E
  • Question Question
XL 2019 gestion du presse papier
3 4 5
Réponses
66
Affichages
2 K
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…