VBA Rechercher
Bonjour,
Oui R C signifie en anglais Row Column ... donc Ligne Colonne ...
Au fait pourquoi es-tu en mode RC ... au lieu du mode standard ...???
James007 a écrit :Bonjour,
Oui R C signifie en anglais Row Column ... donc Ligne Colonne ...
Au fait pourquoi es-tu en mode RC ... au lieu du mode standard ...???
Ben, je n'en sais rien, c'est Archer qui a fait comme cela.
Par contre j'ai un problème que je ne comprend pas lorsque je veux modifier. Cela me renvoie au code.
Je peux te renvoyer le fichier si cela ne t'embête pas ?
Re,
Il ne faut pas hésiter à joindre la toute dernière version de ton fichier ...
Le principe que tu as instauré ... est de progresser étape après étape ....et c'est très bien ...!!!
James007 a écrit :Re,
Il ne faut pas hésiter à joindre la toute dernière version de ton fichier ...
Le principe que tu as instauré ... est de progresser étape après étape ....et c'est très bien ...!!!
Je te remercie
voici le fichier
Re,
Tu peux modifier ta macro d'ouverture ....
Private Sub Workbook_Open()
F02.Range("A1") = Date
F02.Range("j2:j3000").FormulaR1C1 = "=IF(RC[-1]="""","""",IF((RC[-1]-R1C1)<=0,0,RC[-1]-R1C1))"
F04.Select
End SubEn espèrant que cela t'aide ...
James007 a écrit :Re,
Tu peux modifier ta macro d'ouverture ....
Private Sub Workbook_Open() F02.Range("A1") = Date F02.Range("j2:j3000").FormulaR1C1 = "=IF(RC[-1]="""","""",IF((RC[-1]-R1C1)<=0,0,RC[-1]-R1C1))" F04.Select End SubEn espèrant que cela t'aide ...
C'est super, merci merci
Par contre que dois-je modifier pour que quand je veux modifier cela marche et j'espère ne pas t'en demander trop, peux tu m'expliquer le CR car je ne le comprend pas et suis bloquée pour renseigner mon userform synthèse.
Dans tout les cas, Un grand merci
Bonjour
pour moi il faut changer 2 chose
Private Sub Workbook_Open()
F02.Range("A1") = Date
F04.Select
End Sub
et dans U_CreatModif
Private Sub CreateModife(Lig)
For C = 1 To 22
Select Case C
Case 6, 8, 9
Sh.Cells(Lig, C).Value = CDate(Controls("TextBox" & C).Value)
Case 7
Sh.Cells(Lig, C).FormulaLocal = "=AgeMois(F" & Lig & ")"
Case 10
Sh.Cells(Lig, C).FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1]-R1C1)"
Case 12 To 15
Sh.Cells(Lig, C).Value = CDbl(Controls("TextBox" & C).Value)
Case Else
Sh.Cells(Lig, C).Value = Controls("TextBox" & C).Value
End Select
Next
End SubA+
Maurice
archer a écrit :Bonjour
pour moi il faut changer 2 chose
Private Sub Workbook_Open()
F02.Range("A1") = Date
F04.Select
End Sub
et dans U_CreatModif
Private Sub CreateModife(Lig) For C = 1 To 22 Select Case C Case 6, 8, 9 Sh.Cells(Lig, C).Value = CDate(Controls("TextBox" & C).Value) Case 7 Sh.Cells(Lig, C).FormulaLocal = "=AgeMois(F" & Lig & ")" Case 10 Sh.Cells(Lig, C).FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1]-R1C1)" Case 12 To 15 Sh.Cells(Lig, C).Value = CDbl(Controls("TextBox" & C).Value) Case Else Sh.Cells(Lig, C).Value = Controls("TextBox" & C).Value End Select Next End SubA+
Maurice
Bonjour Maurice,
super ça fonctionne et te remercie pour tout.
J'ai réussis à mettre un autre émoticône (pour la synthèse).
Mon chemin reste encore long dans mes apprentissages mais j'y contribue grâce a votre aide.
Merci beaucoup
Sandrine
Sandrine ...
J'ai envie de te féliciter pour tes progrès et pour ta persévérance ...
Tu vas finir par construire une application professionnelle ...
James007 a écrit :Sandrine ...
J'ai envie de te féliciter pour tes progrès et pour ta persévérance ...
Tu vas finir par construire une application professionnelle ...
Merci, c'est gentil et j'ai hâte de pouvoir vous montrer un jour un projet que j'aurai réalisé grâce à tout l'enseignement que vous m'apportez.
Aujourd'hui , dans ce projet , vous y êtes pour une grande partie (voir presque tout) pour quelque chose et je vous en suis infiniment reconnaissante. Et merci aussi pour votre pédagogie.
bonjour
pour la synthèse il faut mettre les numéro des textbox dans l'ordre des numéro de colonne
ses plus facile a faire des routines
A+
Maurice
re
retour de ton fichier a voir
A+
Maurice
archer a écrit :bonjour
pour la synthèse il faut mettre les numéro des textbox dans l'ordre des numéro de colonne
ses plus facile a faire des routines
A+
Maurice
re
retour de ton fichier a voir
A+
Maurice
Merci énormément pour tout.
Je vais maintenant analyser ce que tu as fais pour le comprendre.
Bonne soirée
A bientôt
Sandrine
archer a écrit :bonjour
pour la synthèse il faut mettre les numéro des textbox dans l'ordre des numéro de colonne
ses plus facile a faire des routines
A+
Maurice
re
retour de ton fichier a voir
A+
Maurice
Bonjour Maurice,
Je te remets le fichier car j'ai des beugs au niveau de l'userform synthèse et modifier dont je n'arrive pas a résoudre.
Merci pour ton aide.
Bonne journée
Sandrine
Bonjour
voir la colonne P dans la feuille Var
pour Edition de la synthèse moi le ferait ca dans une nouvelle feuille ca serait plus jolie
A+
Maurice
archer a écrit :Bonjour
voir la colonne P dans la feuille Var
pour Edition de la synthèse moi le ferait ca dans une nouvelle feuille ca serait plus jolie
A+
Maurice
Merci, je vais rectifier , si j'ai bien tout compris. Ma colonne A (Synthèse) correspond à la liste sur var qui dans p me donne la ligne a respecter et je continue sur la même ligne a renseigner mes données synthèse par ordre du n° du textbox.
Pour la synthèse je vais la modifier pour qu'elle s'exporte sur une nouvelle feuille.
Par contre j'aurais encore besoin de conseil.
Je vais créer deux boutons de contrôle :
- le premier c'est pour actualiser les données lorsqu'on change l'année :
Il doit supprimer les ligner dont le nombre de jour est à 0
effacer les données de la colonne adhésion n-1
recopier d'un croix la colonne adhésion lorsque celle-ci présente 50 dans la colonne adhésion N-1
et effacer ensuite les données de la colonne adhésion.
- le deuxième bouton est une autre actualisation
qui doit effacer les données des colonnes a, b,c,d si le nombre de jour restant est >0
et mettre une croix dans la colonne adhésion si le nombre de jour restant est = 0
Merci beaucoup pour tout
Bonjour
voila un model édition synthèse
et voir la feuille Var
A+
Maurice
archer a écrit :Bonjour
voila un model édition synthèse
et voir la feuille Var
A+
Maurice
Merci beaucoup, je vais étudier tous cela et rajouter des mises en forme.
Bonne soirée
archer a écrit :Bonjour
voila un model édition synthèse
et voir la feuille Var
A+
Maurice
Bonjour Maurice,
Est-il possible de rajouter dans U-liste le nombre d'enfant présent qui apparaît selon le choix de l'établissement du Combobox ?
En te remerciant
Bon Dimanche
Sandrine
Bonjour,
Encore coincée et encore besoin de vous.
Dans le feuille formulaire, j'ai deux boutons de commande dont un est nouvelle année et l'autre actualisation 2.
Dans celui de nouvelle année, j'aimerai qu'il supprime dans le feuille Base toutes les lignes dont le nombre de jours restant est égal à 0.
Puis qu'il copie la colonne adhésion dans la colonne adhésion n-1. Ensuite, dans la colonne adhésion n-1 que le 50 soit remplacé par un X.
Dans celui de l'actualisation 2, j'aimerai qu'il efface les données des colonnes A, B ,C, D si le nombre de jours restant est >0.
En vous remerciant
bonjour
et ton édition fonctionne ????
et voila un peux de code
Sub SupLigne()
' Efface Ligne NOMBRE DE JOURS RESTANT
F02.Select
For L = Cells(Rows.Count, 5).End(xlUp).Row To 2 Step -1
If Cells(L, 10).Value = 0 Then
Rows(L).Delete
End If
Next
End Sub
Sub Tri()
F02.Select
Range("A2:V" & Range("E" & Rows.Count).End(xlUp).Row).Sort Key1:=Range("E2"), Order1:=xlAscending
End SubA+
Maurice