XL 2010 copier dans la bonne ligne

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

  • copie en face de la bonne ligne.xlsm
    12.8 KB · Affichages: 48
Trier par date Trier par votes
Jacky67

Jacky67

XLDnaute Barbatruc
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
L

loul03

XLDnaute Occasionnel
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
Jacky67

Jacky67

XLDnaute Barbatruc
loul03 à dit:
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
Cliquez pour agrandir...
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
L

loul03

XLDnaute Occasionnel
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
L

loul03

XLDnaute Occasionnel
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
 

Pièces jointes

  • essai mat.xlsm
    119.9 KB · Affichages: 49
Vote positif 0 Vote négatif
Jacky67

Jacky67

XLDnaute Barbatruc
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
upload_2016-11-21_16-22-53.png

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
Jacky67

Jacky67

XLDnaute Barbatruc
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
L

loul03

XLDnaute Occasionnel
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
Jacky67

Jacky67

XLDnaute Barbatruc
loul03 à dit:
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
Cliquez pour agrandir...
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

Discussions similaires

L
  • Question
XL 2019 aligner textbox userform et valeur de cellule
Réponses
1
Affichages
130
fanfan38
fanfan38
Q
  • Question
XL 2019 copier une ligne en fonction de la valeur d'une cellule
Réponses
10
Affichages
680
quetzal974
Q
G
  • Question
Microsoft 365 vba intégrer réf onglet dans code sauvegarde
Réponses
2
Affichages
278
patricktoulon
patricktoulon
A
  • Question
XL 2019 Ajouter ou supprimer une ligne selon un mot trouvé dans une autre feuille
Réponses
1
Affichages
171
Oneida
Oneida
I
  • Question
Autres Classements pour un cross d'établissement scolaire
Réponses
1
Affichages
419
jcf6464
jcf6464
S
  • Résolu(e)
Microsoft 365 Récupérer la date dans un calendrier
Réponses
2
Affichages
132
sebastien176
S
A
  • Question
XL 2019 Filtre avancé en VBA
Réponses
12
Affichages
332
Amilo
A
JpGraph
  • Résolu(e)
Microsoft 365 Comment extraire la premiere valeur non nulle d'une ligne dans calc
Réponses
13
Affichages
381
JpGraph
JpGraph
C
  • Résolu(e)
XL 2019 Copier et renommer (en même temps) des feuilles à partir d'une liste de noms dans un colonne
Réponses
13
Affichages
631
Clemee61
C
anthoYS
  • Résolu(e)
XL 2019 alimentation quotidienne : gestion/suivi d'un déficit calorique
2 3
Réponses
39
Affichages
931
Phil69970
Phil69970

Membres actuellement en ligne

18 membres et 356 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 345
Messages
2 087 457
Membres
103 546
dernier inscrit
mohamed tano