Passage à la ligne suivante apres validation
Résolu
niewbiesVBA
Messages postés
51
Date d'inscription
jeudi 15 janvier 2015
Statut
Membre
Dernière intervention
2 mars 2015
-
15 janv. 2015 à 15:23
niewbiesVBA Messages postés 51 Date d'inscription jeudi 15 janvier 2015 Statut Membre Dernière intervention 2 mars 2015 - 17 janv. 2015 à 14:29
niewbiesVBA Messages postés 51 Date d'inscription jeudi 15 janvier 2015 Statut Membre Dernière intervention 2 mars 2015 - 17 janv. 2015 à 14:29
A voir également:
- Fermer userform après validation
- Fermer un userform vba - Forum Visual Basic
- Variable globale entre un module Feuil et un module userform ✓ - Forum Visual Basic 6
- Fermer balise html - Forum PHP
- Appuyez sur échap pour fermer - Forum Visual Basic
- Fermer une boite de dialoque Excel - Forum Visual Basic 6
11 réponses
jordane45
Messages postés
38144
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
21 avril 2024
344
15 janv. 2015 à 15:42
15 janv. 2015 à 15:42
Bonjour,
Quelle macro est lancée par ton bouton "nouveau défaut" ?
Celle là : CommandButton3_Click() ?
Qu'appelles tu "retour à la ligne" ?
veux tu dire que tu écris Toujours à la ligne 6 de ta feuille ??
Si oui.. c'est normal...
Il faut remplacer le 6 que tu as écris dans tes fonctions... par ta variable " l "
Quelle macro est lancée par ton bouton "nouveau défaut" ?
Celle là : CommandButton3_Click() ?
Qu'appelles tu "retour à la ligne" ?
veux tu dire que tu écris Toujours à la ligne 6 de ta feuille ??
Si oui.. c'est normal...
Il faut remplacer le 6 que tu as écris dans tes fonctions... par ta variable " l "
Cells(6,
Cells(l,
niewbiesVBA
Messages postés
51
Date d'inscription
jeudi 15 janvier 2015
Statut
Membre
Dernière intervention
2 mars 2015
15 janv. 2015 à 15:50
15 janv. 2015 à 15:50
Bonjour ,
Merci de vous intéresser à mon problème, en faite dans mon tableau, les données commence a s'inscrire a partir de la ligne 6 car au dessus sont les en-tête.
La macro est bien lancer via le commandButton3, pour être précis :
Lorsque que je renseigne mon userform, je clique sur mon commandbutton3, a ce moment, il me renseigne le tableau puis se prépare a écrire sur une nouvelle ligne.
J'espere avoir été clair :)
merci encore
Merci de vous intéresser à mon problème, en faite dans mon tableau, les données commence a s'inscrire a partir de la ligne 6 car au dessus sont les en-tête.
La macro est bien lancer via le commandButton3, pour être précis :
Lorsque que je renseigne mon userform, je clique sur mon commandbutton3, a ce moment, il me renseigne le tableau puis se prépare a écrire sur une nouvelle ligne.
J'espere avoir été clair :)
merci encore
cgandco
Messages postés
219
Date d'inscription
mercredi 26 octobre 2011
Statut
Membre
Dernière intervention
22 juin 2017
9
15 janv. 2015 à 17:27
15 janv. 2015 à 17:27
Bonjour,
je suppose que ton * t'indique la ligne ou tu dois écrire au prochain lancement de ta macro, alors tu dois écrire en
et pas
en
et après cela tu dois replacer ton * en
pour la prochaine execution.
remarque :
il serait prudent de placer un
avant le
pour éviter les erreurs si le * n'est pas la.
Bonne journée
je suppose que ton * t'indique la ligne ou tu dois écrire au prochain lancement de ta macro, alors tu dois écrire en
Cell(ligne_fin
et pas
en
Cell(6
et après cela tu dois replacer ton * en
Cell(ligne_fin + 1
pour la prochaine execution.
remarque :
il serait prudent de placer un
on error goto gestion_erreur
avant le
ligne_fin = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
pour éviter les erreurs si le * n'est pas la.
Bonne journée
jordane45
Messages postés
38144
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
21 avril 2024
344
Modifié par jordane45 le 15/01/2015 à 19:19
Modifié par jordane45 le 15/01/2015 à 19:19
Bonsoir cgandco :
Je suppose que tu fais référence au * de la commande :
Donc Non.. cette instruction permet de déterminer quelle est la dernière ligne NON VIDE de la colonne A1
Et donc :
Par contre.. comme je le lui ai indiqué... il doit utiliser sa variable " l " qu'il a initialisé avec le code suivant :
Et qui correspond à la première LIGNE VIDE de son tableau.
( ce qui revient au même que ce que tu lui as également proposé:.
Il n'a donc qu'à modifier le "6" qu'il à mis dans ses CELLS pour spécifier qu'il veut utiliser soit sa variable L soit ligne_fin + 1 ce qui lui permettra ainsi d'écrire sur une nouvelle ligne automatiquement à chaque fois qu'il cliquera sur son bouton....
Par exemple :
je suppose que ton * t'indique la ligne ou tu dois écrire au prochain lancement de ta macro
Je suppose que tu fais référence au * de la commande :
Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
Donc Non.. cette instruction permet de déterminer quelle est la dernière ligne NON VIDE de la colonne A1
Et donc :
et après cela tu dois replacer ton * en=>> Non !
Par contre.. comme je le lui ai indiqué... il doit utiliser sa variable " l " qu'il a initialisé avec le code suivant :
l = ligne_fin + 1
Et qui correspond à la première LIGNE VIDE de son tableau.
( ce qui revient au même que ce que tu lui as également proposé:.
Cell(ligne_fin + 1. )
Il n'a donc qu'à modifier le "6" qu'il à mis dans ses CELLS pour spécifier qu'il veut utiliser soit sa variable L soit ligne_fin + 1 ce qui lui permettra ainsi d'écrire sur une nouvelle ligne automatiquement à chaque fois qu'il cliquera sur son bouton....
Par exemple :
'Code information du site
Sheets("BDD").Cells(l, 1).Value = INB
Sheets("BDD").Cells(l, 2).Value = BAT
Sheets("BDD").Cells(l, 3).Value = NIV
Sheets("BDD").Cells(l, 4).Value = SALLE1
Sheets("BDD").Cells(l, 5).Value = SALLE2
Sheets("BDD").Cells(l, 6).Value = ANFM
' etc...
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
211
Modifié par ucfoutu le 15/01/2015 à 19:39
Modifié par ucfoutu le 15/01/2015 à 19:39
Bonjour,
j'ajoute ceci à ce qu'a exprimé à fort juste titre Jordane45 :
- soit on recalcule Ligne_fin + 1 à chaque clic sur ce bouton (et la variable L est alors superfétatoire)
- soit on ne calcule qu'une seule fois L = ligne_fin + 1 et on incrémente L de une unité à chaque clic, puis on utilise L.
Cette seconde méthode est plus rapide, mais elle impose :
- a) soit de déclarer L en variable publique dans un module et de l'initialiser au Workbook_Open
- b) soit de déclarer L en variable statique dans l'évènement click et de ne la réinitialiser que si = 0
Ma préférence va au choix a), qui permet d'éviter toute perte de la valeur de L en cas de fermeture de l'Userform
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend
j'ajoute ceci à ce qu'a exprimé à fort juste titre Jordane45 :
- soit on recalcule Ligne_fin + 1 à chaque clic sur ce bouton (et la variable L est alors superfétatoire)
- soit on ne calcule qu'une seule fois L = ligne_fin + 1 et on incrémente L de une unité à chaque clic, puis on utilise L.
Cette seconde méthode est plus rapide, mais elle impose :
- a) soit de déclarer L en variable publique dans un module et de l'initialiser au Workbook_Open
- b) soit de déclarer L en variable statique dans l'évènement click et de ne la réinitialiser que si = 0
Ma préférence va au choix a), qui permet d'éviter toute perte de la valeur de L en cas de fermeture de l'Userform
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
211
Modifié par ucfoutu le 16/01/2015 à 09:40
Modifié par ucfoutu le 16/01/2015 à 09:40
Et au fait :
Chacun des groupes de If Then ... else ... peut s'écrire en une seule ligne.
Exemple :
revient tout simplement à écrire :
J'irais personnellement même plus loin encore (je mettrais toutes les checboxes dans un array et traiterais l'ensemble de tous ces blocs en une seule boucle de parcours de l'array, soit sur 3 lignes de code au total), mais contente-toi pour l'instant de ce qui t'a été dit plus haut.
EDIT : il y a même encore beaucoup mieux à faire (même pas besoin d'un array et, cerise sur le gâteau, pour TOUT traiter en moins de 6 lignes de code), mais nous n'y viendrons que lorsque tu auras passé avec succès ta première étape (ce qui t'a été dit plus haut).
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend
Chacun des groupes de If Then ... else ... peut s'écrire en une seule ligne.
Exemple :
If CB_nord.Value = True Then 'Si coché ...
Sheets("BDD").Cells(6, 7).Value = "X"
Else 'Si non coché ...
Sheets("BDD").Cells(6, 7).Value = ""
End If
revient tout simplement à écrire :
Sheets("BDD").Cells(6, 7).Value = String(CB_nord.Value ^ 2, "X")
J'irais personnellement même plus loin encore (je mettrais toutes les checboxes dans un array et traiterais l'ensemble de tous ces blocs en une seule boucle de parcours de l'array, soit sur 3 lignes de code au total), mais contente-toi pour l'instant de ce qui t'a été dit plus haut.
EDIT : il y a même encore beaucoup mieux à faire (même pas besoin d'un array et, cerise sur le gâteau, pour TOUT traiter en moins de 6 lignes de code), mais nous n'y viendrons que lorsque tu auras passé avec succès ta première étape (ce qui t'a été dit plus haut).
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend
niewbiesVBA
Messages postés
51
Date d'inscription
jeudi 15 janvier 2015
Statut
Membre
Dernière intervention
2 mars 2015
16 janv. 2015 à 11:19
16 janv. 2015 à 11:19
Bonjour,
Merci à tous pour vos conseil, je prend note et me met au travail de suite, je corrige mon code et reviens donc une fois la première étape réalisé.
ucfoutu : je ne connaissait pas cette méthode pour les bloc If...Then, je débute dans le VBA et ai établie ce code en parcourant divers tutoriel le concernant et je me penchait justement sur le comment raccourcir ce code que je trouvais enorme et devenait illisible. merci encore pour ces astuces.
cgandco et jordan45 : Merci également à vous deux pour votre aide, et comme dis à ucfoutu, je me met au travail de suite et reviendrais quand j'aurais franchis cette étape, je reposterais donc mon code modifié.
A plus tard :)
Merci à tous pour vos conseil, je prend note et me met au travail de suite, je corrige mon code et reviens donc une fois la première étape réalisé.
ucfoutu : je ne connaissait pas cette méthode pour les bloc If...Then, je débute dans le VBA et ai établie ce code en parcourant divers tutoriel le concernant et je me penchait justement sur le comment raccourcir ce code que je trouvais enorme et devenait illisible. merci encore pour ces astuces.
cgandco et jordan45 : Merci également à vous deux pour votre aide, et comme dis à ucfoutu, je me met au travail de suite et reviendrais quand j'aurais franchis cette étape, je reposterais donc mon code modifié.
A plus tard :)
niewbiesVBA
Messages postés
51
Date d'inscription
jeudi 15 janvier 2015
Statut
Membre
Dernière intervention
2 mars 2015
16 janv. 2015 à 12:36
16 janv. 2015 à 12:36
Re-Bonjour,
Donc voilà, j'ai réécrit le code, que voici (il est vrai que c'est beaucoup plus clair :) )
Cependant je ne parvient toujours pas à passer à la ligne suivant lorsque je clique sur mon bouton.
ucfoutu : pourrais-tu m'en dire d'avantage (en mode débutant) sur cette explication :
"- soit on recalcule Ligne_fin + 1 à chaque clic sur ce bouton (et la variable L est alors superfétatoire)
- soit on ne calcule qu'une seule fois L = ligne_fin + 1 et on incrémente L de une unité à chaque clic, puis on utilise L.
Cette seconde méthode est plus rapide, mais elle impose :
- a) soit de déclarer L en variable publique dans un module et de l'initialiser au Workbook_Open "
Ou, m'expliquer mon erreur pour ce passage à la ligne...
Merci beaucoup
Donc voilà, j'ai réécrit le code, que voici (il est vrai que c'est beaucoup plus clair :) )
Private Sub CommandButton1_Click()
info_gen.Show
End Sub
Private Sub CommandButton3_Click()
Dim observation As String
Dim l As Integer
Dim ligne_fin As Long
ligne_fin = Cells.Find("*", Range("A6"), , , xlByRows, xlPrevious).Row
l = ligne_fin + 1
'Code information du site
Sheets("BDD").Cells(l, 1).Value = TB_inb.Value
Sheets("BDD").Cells(l, 2).Value = TB_bat.Value
Sheets("BDD").Cells(l, 3).Value = TB_niv.Value
Sheets("BDD").Cells(l, 4).Value = TB_salle1.Value
Sheets("BDD").Cells(l, 5).Value = TB_salle2.Value
Sheets("BDD").Cells(l, 6).Value = TB_anfm.Value
'Code orientation du mur
Sheets("BDD").Cells(l, 7).Value = String(CB_nord.Value ^ 2, "X")
Sheets("BDD").Cells(l, 8).Value = String(CB_sud.Value ^ 2, "X")
Sheets("BDD").Cells(l, 9).Value = String(CB_ouest.Value ^ 2, "X")
Sheets("BDD").Cells(l, 10).Value = String(CB_est.Value ^ 2, "X")
'Code localisation du defaut
Sheets("BDD").Cells(l, 11).Value = String(CB_plancher.Value ^ 2, "X")
Sheets("BDD").Cells(l, 12).Value = String(CB_radier.Value ^ 2, "X")
Sheets("BDD").Cells(l, 13).Value = String(CB_plafond.Value ^ 2, "X")
Sheets("BDD").Cells(l, 14).Value = String(CB_poutre.Value ^ 2, "X")
Sheets("BDD").Cells(l, 15).Value = String(CB_poteau.Value ^ 2, "X")
'Code environnement
Sheets("BDD").Cells(l, 16).Value = String(CB_interieur.Value ^ 2, "X")
Sheets("BDD").Cells(l, 17).Value = String(CB_extprotege.Value ^ 2, "X")
Sheets("BDD").Cells(l, 18).Value = String(CB_extnonprotege.Value ^ 2, "X")
'Code accessibilité de la salle
Sheets("BDD").Cells(l, 23).Value = String(CB_salleoui.Value ^ 2, "X")
Sheets("BDD").Cells(l, 24).Value = String(CB_risqueradio.Value ^ 2, "X")
Sheets("BDD").Cells(l, 25).Value = String(CB_trxcours.Value ^ 2, "X")
Sheets("BDD").Cells(l, 26).Value = String(CB_perturbexploit.Value ^ 2, "X")
Sheets("BDD").Cells(l, 27).Value = String(CB_autres.Value ^ 2, "X")
'Code accessibilité de la fissure
Sheets("BDD").Cells(l, 28).Value = String(CB_accfissoui.Value ^ 2, "X")
Sheets("BDD").Cells(l, 29).Value = String(CB_accfisspart.Value ^ 2, "X")
Sheets("BDD").Cells(l, 30).Value = String(CB_accfissnon.Value ^ 2, "X")
Sheets("BDD").Cells(l, 31).Value = String(CB_accfissencomb.Value ^ 2, "X")
Sheets("BDD").Cells(l, 32).Value = String(CB_accfissacces.Value ^ 2, "X")
Sheets("BDD").Cells(l, 33).Value = String(CB_accfissautre.Value ^ 2, "X")
'Code Partie A: apparence béton
'Couleur
Sheets("BDD").Cells(l, 35).Value = String(CB_inco.Value ^ 2, "X")
Sheets("BDD").Cells(l, 36).Value = String(CB_rou.Value ^ 2, "X")
Sheets("BDD").Cells(l, 37).Value = String(CB_blan.Value ^ 2, "X")
'Infiltrations
Sheets("BDD").Cells(l, 38).Value = String(CB_pastrace.Value ^ 2, "X")
Sheets("BDD").Cells(l, 39).Value = String(CB_trace.Value ^ 2, "X")
'Type d'infiltration
Sheets("BDD").Cells(l, 40).Value = String(CB_coulure.Value ^ 2, "X")
Sheets("BDD").Cells(l, 41).Value = String(CB_humide.Value ^ 2, "X")
Sheets("BDD").Cells(l, 42).Value = String(CB_seche.Value ^ 2, "X")
Sheets("BDD").Cells(l, 43).Value = String(CB_efflorescence.Value ^ 2, "X")
Sheets("BDD").Cells(l, 44).Value = String(CB_aureole.Value ^ 2, "X")
'Partie B: Aciers au droit de la fissure
Sheets("BDD").Cells(l, 45).Value = String(CB_tracecorosion.Value ^ 2, "X")
Sheets("BDD").Cells(l, 46).Value = String(CB_pasacier.Value ^ 2, "X")
Sheets("BDD").Cells(l, 47).Value = String(CB_acier.Value ^ 2, "X")
'Partie C: Etat de la surface du béton
'Général
Sheets("BDD").Cells(l, 48).Value = String(CB_bonetat.Value ^ 2, "X")
Sheets("BDD").Cells(l, 49).Value = String(CB_suspect.Value ^ 2, "X")
'Défaut relevés
Sheets("BDD").Cells(l, 50).Value = String(CB_resfiss.Value ^ 2, "X")
Sheets("BDD").Cells(l, 51).Value = String(CB_rsirag.Value ^ 2, "X")
Sheets("BDD").Cells(l, 52).Value = String(CB_ecaillage.Value ^ 2, "X")
Sheets("BDD").Cells(l, 53).Value = String(CB_cloquage.Value ^ 2, "X")
Sheets("BDD").Cells(l, 54).Value = String(CB_epauff.Value ^ 2, "X")
Sheets("BDD").Cells(l, 55).Value = String(CB_autre2.Value ^ 2, "X")
'Commentaire partie C
Sheets("BDD").Cells(l, 56).Value = TB_commEtatSurface.Value
'Localisation de la fissure
'Salle 1
Sheets("BDD").Cells(l, 57).Value = String(CB_zone3R.Value ^ 2, "X")
Sheets("BDD").Cells(l, 58).Value = String(CB_zone4.Value ^ 2, "X")
Sheets("BDD").Cells(l, 59).Value = String(CB_sectfeu.Value ^ 2, "X")
Sheets("BDD").Cells(l, 60).Value = String(CB_paroiext.Value ^ 2, "X")
Sheets("BDD").Cells(l, 61).Value = String(CB_123.Value ^ 2, "X")
'Commentaire
Sheets("BDD").Cells(l, 62).Value = TB_commLocaFiss1.Value
'Salle 2
Sheets("BDD").Cells(l, 63).Value = String(CB2_zone3R.Value ^ 2, "X")
Sheets("BDD").Cells(l, 64).Value = String(CB2_zone4.Value ^ 2, "X")
Sheets("BDD").Cells(l, 65).Value = String(CB2_sectfeu.Value ^ 2, "X")
Sheets("BDD").Cells(l, 66).Value = String(CB2_paroiext.Value ^ 2, "X")
Sheets("BDD").Cells(l, 67).Value = String(CB2_123.Value ^ 2, "X")
'Commentaire
Sheets("BDD").Cells(l, 68).Value = TB_commLocaFiss2.Value
'Attribut fissures :
Sheets("BDD").Cells(l, 69).Value = String(CB_nontrav.Value ^ 2, "X")
Sheets("BDD").Cells(l, 70).Value = String(CB_trav.Value ^ 2, "X")
Sheets("BDD").Cells(l, 71).Value = String(CB_noncaract.Value ^ 2, "X")
Sheets("BDD").Cells(l, 72).Value = String(CB_ecartdixieme.Value ^ 2, "X")
Sheets("BDD").Cells(l, 75).Value = String(CB_inf1mm.Value ^ 2, "X")
Sheets("BDD").Cells(l, 76).Value = String(CB_sup1mm.Value ^ 2, "X")
'ecart min et ecart max
Sheets("BDD").Cells(l, 74).Value = TB_emin.Value
Sheets("BDD").Cells(l, 73).Value = TB_emax.Value
'Observation générales
observation = InputBox("Remarques sur l'inspection:", "Observations génarales")
Sheets("BDD").Cells(l, 77).Value = observation
'Photos
Sheets("BDD").Cells(l, 78).Value = TB_photo1.Value
Sheets("BDD").Cells(l, 79).Value = TB_photo2.Value
Sheets("BDD").Cells(l, 80).Value = TB_photo3.Value
Sheets("BDD").Cells(l, 81).Value = TB_photo4.Value
Sheets("BDD").Cells(l, 82).Value = TB_photo5.Value
l = l + 1
End Sub
Cependant je ne parvient toujours pas à passer à la ligne suivant lorsque je clique sur mon bouton.
ucfoutu : pourrais-tu m'en dire d'avantage (en mode débutant) sur cette explication :
"- soit on recalcule Ligne_fin + 1 à chaque clic sur ce bouton (et la variable L est alors superfétatoire)
- soit on ne calcule qu'une seule fois L = ligne_fin + 1 et on incrémente L de une unité à chaque clic, puis on utilise L.
Cette seconde méthode est plus rapide, mais elle impose :
- a) soit de déclarer L en variable publique dans un module et de l'initialiser au Workbook_Open "
Ou, m'expliquer mon erreur pour ce passage à la ligne...
Merci beaucoup
niewbiesVBA
Messages postés
51
Date d'inscription
jeudi 15 janvier 2015
Statut
Membre
Dernière intervention
2 mars 2015
16 janv. 2015 à 13:04
16 janv. 2015 à 13:04
Re,
Je me répond à moi-même car maintenant ça fonctionne
Leçon N°1 : ne jamais modifier des choses qui fonctionne, voici mon erreur :
cette ligne
Je l'ai mise en A6, du n'importe, quoi je l'ai donc remise en A1
cette ligne
Idiot de ma part, elle est déjà incrémentée au début... voici donc le code finale :
Le passage à la ligne se fait correctement, un grand merci à vous tous pour votre aide et vos apports.
A bientôt
PS: ucfoutu :
EDIT: il y a même encore beaucoup mieux à faire (même pas besoin d'un array et, cerise sur le gâteau, pour TOUT traiter en moins de 6 lignes de code), mais nous n'y viendrons que lorsque tu auras passé avec succès ta première étape (ce qui t'a été dit plus haut).
Je suis interresser, pourriez vous m'en dire plus ? ou j'ouvre un autre poste ?
;)
Je me répond à moi-même car maintenant ça fonctionne
Leçon N°1 : ne jamais modifier des choses qui fonctionne, voici mon erreur :
cette ligne
ligne_fin = Cells.Find("*", Range("A6"), , , xlByRows, xlPrevious).Row
Je l'ai mise en A6, du n'importe, quoi je l'ai donc remise en A1
cette ligne
l = l + 1
Idiot de ma part, elle est déjà incrémentée au début... voici donc le code finale :
Private Sub CommandButton1_Click()
info_gen.Show
End Sub
Private Sub CommandButton3_Click()
Dim observation As String
Dim l As Integer
Dim ligne_fin As Long
ligne_fin = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
l = ligne_fin + 1
'Code information du site
Sheets("BDD").Cells(l, 1).Value = TB_inb.Value
Sheets("BDD").Cells(l, 2).Value = TB_bat.Value
Sheets("BDD").Cells(l, 3).Value = TB_niv.Value
Sheets("BDD").Cells(l, 4).Value = TB_salle1.Value
Sheets("BDD").Cells(l, 5).Value = TB_salle2.Value
Sheets("BDD").Cells(l, 6).Value = TB_anfm.Value
'Code orientation du mur
Sheets("BDD").Cells(l, 7).Value = String(CB_nord.Value ^ 2, "X")
Sheets("BDD").Cells(l, 8).Value = String(CB_sud.Value ^ 2, "X")
Sheets("BDD").Cells(l, 9).Value = String(CB_ouest.Value ^ 2, "X")
Sheets("BDD").Cells(l, 10).Value = String(CB_est.Value ^ 2, "X")
'Code localisation du defaut
Sheets("BDD").Cells(l, 11).Value = String(CB_plancher.Value ^ 2, "X")
Sheets("BDD").Cells(l, 12).Value = String(CB_radier.Value ^ 2, "X")
Sheets("BDD").Cells(l, 13).Value = String(CB_plafond.Value ^ 2, "X")
Sheets("BDD").Cells(l, 14).Value = String(CB_poutre.Value ^ 2, "X")
Sheets("BDD").Cells(l, 15).Value = String(CB_poteau.Value ^ 2, "X")
'Code environnement
Sheets("BDD").Cells(l, 16).Value = String(CB_interieur.Value ^ 2, "X")
Sheets("BDD").Cells(l, 17).Value = String(CB_extprotege.Value ^ 2, "X")
Sheets("BDD").Cells(l, 18).Value = String(CB_extnonprotege.Value ^ 2, "X")
'Code accessibilité de la salle
Sheets("BDD").Cells(l, 23).Value = String(CB_salleoui.Value ^ 2, "X")
Sheets("BDD").Cells(l, 24).Value = String(CB_risqueradio.Value ^ 2, "X")
Sheets("BDD").Cells(l, 25).Value = String(CB_trxcours.Value ^ 2, "X")
Sheets("BDD").Cells(l, 26).Value = String(CB_perturbexploit.Value ^ 2, "X")
Sheets("BDD").Cells(l, 27).Value = String(CB_autres.Value ^ 2, "X")
'Code accessibilité de la fissure
Sheets("BDD").Cells(l, 28).Value = String(CB_accfissoui.Value ^ 2, "X")
Sheets("BDD").Cells(l, 29).Value = String(CB_accfisspart.Value ^ 2, "X")
Sheets("BDD").Cells(l, 30).Value = String(CB_accfissnon.Value ^ 2, "X")
Sheets("BDD").Cells(l, 31).Value = String(CB_accfissencomb.Value ^ 2, "X")
Sheets("BDD").Cells(l, 32).Value = String(CB_accfissacces.Value ^ 2, "X")
Sheets("BDD").Cells(l, 33).Value = String(CB_accfissautre.Value ^ 2, "X")
'Code Partie A: apparence béton
'Couleur
Sheets("BDD").Cells(l, 35).Value = String(CB_inco.Value ^ 2, "X")
Sheets("BDD").Cells(l, 36).Value = String(CB_rou.Value ^ 2, "X")
Sheets("BDD").Cells(l, 37).Value = String(CB_blan.Value ^ 2, "X")
'Infiltrations
Sheets("BDD").Cells(l, 38).Value = String(CB_pastrace.Value ^ 2, "X")
Sheets("BDD").Cells(l, 39).Value = String(CB_trace.Value ^ 2, "X")
'Type d'infiltration
Sheets("BDD").Cells(l, 40).Value = String(CB_coulure.Value ^ 2, "X")
Sheets("BDD").Cells(l, 41).Value = String(CB_humide.Value ^ 2, "X")
Sheets("BDD").Cells(l, 42).Value = String(CB_seche.Value ^ 2, "X")
Sheets("BDD").Cells(l, 43).Value = String(CB_efflorescence.Value ^ 2, "X")
Sheets("BDD").Cells(l, 44).Value = String(CB_aureole.Value ^ 2, "X")
'Partie B: Aciers au droit de la fissure
Sheets("BDD").Cells(l, 45).Value = String(CB_tracecorosion.Value ^ 2, "X")
Sheets("BDD").Cells(l, 46).Value = String(CB_pasacier.Value ^ 2, "X")
Sheets("BDD").Cells(l, 47).Value = String(CB_acier.Value ^ 2, "X")
'Partie C: Etat de la surface du béton
'Général
Sheets("BDD").Cells(l, 48).Value = String(CB_bonetat.Value ^ 2, "X")
Sheets("BDD").Cells(l, 49).Value = String(CB_suspect.Value ^ 2, "X")
'Défaut relevés
Sheets("BDD").Cells(l, 50).Value = String(CB_resfiss.Value ^ 2, "X")
Sheets("BDD").Cells(l, 51).Value = String(CB_rsirag.Value ^ 2, "X")
Sheets("BDD").Cells(l, 52).Value = String(CB_ecaillage.Value ^ 2, "X")
Sheets("BDD").Cells(l, 53).Value = String(CB_cloquage.Value ^ 2, "X")
Sheets("BDD").Cells(l, 54).Value = String(CB_epauff.Value ^ 2, "X")
Sheets("BDD").Cells(l, 55).Value = String(CB_autre2.Value ^ 2, "X")
'Commentaire partie C
Sheets("BDD").Cells(l, 56).Value = TB_commEtatSurface.Value
'Localisation de la fissure
'Salle 1
Sheets("BDD").Cells(l, 57).Value = String(CB_zone3R.Value ^ 2, "X")
Sheets("BDD").Cells(l, 58).Value = String(CB_zone4.Value ^ 2, "X")
Sheets("BDD").Cells(l, 59).Value = String(CB_sectfeu.Value ^ 2, "X")
Sheets("BDD").Cells(l, 60).Value = String(CB_paroiext.Value ^ 2, "X")
Sheets("BDD").Cells(l, 61).Value = String(CB_123.Value ^ 2, "X")
'Commentaire
Sheets("BDD").Cells(l, 62).Value = TB_commLocaFiss1.Value
'Salle 2
Sheets("BDD").Cells(l, 63).Value = String(CB2_zone3R.Value ^ 2, "X")
Sheets("BDD").Cells(l, 64).Value = String(CB2_zone4.Value ^ 2, "X")
Sheets("BDD").Cells(l, 65).Value = String(CB2_sectfeu.Value ^ 2, "X")
Sheets("BDD").Cells(l, 66).Value = String(CB2_paroiext.Value ^ 2, "X")
Sheets("BDD").Cells(l, 67).Value = String(CB2_123.Value ^ 2, "X")
'Commentaire
Sheets("BDD").Cells(l, 68).Value = TB_commLocaFiss2.Value
'Attribut fissures :
Sheets("BDD").Cells(l, 69).Value = String(CB_nontrav.Value ^ 2, "X")
Sheets("BDD").Cells(l, 70).Value = String(CB_trav.Value ^ 2, "X")
Sheets("BDD").Cells(l, 71).Value = String(CB_noncaract.Value ^ 2, "X")
Sheets("BDD").Cells(l, 72).Value = String(CB_ecartdixieme.Value ^ 2, "X")
Sheets("BDD").Cells(l, 75).Value = String(CB_inf1mm.Value ^ 2, "X")
Sheets("BDD").Cells(l, 76).Value = String(CB_sup1mm.Value ^ 2, "X")
'ecart min et ecart max
Sheets("BDD").Cells(l, 74).Value = TB_emin.Value
Sheets("BDD").Cells(l, 73).Value = TB_emax.Value
'Observation générales
observation = InputBox("Remarques sur l'inspection:", "Observations génarales")
Sheets("BDD").Cells(l, 77).Value = observation
'Photos
Sheets("BDD").Cells(l, 78).Value = TB_photo1.Value
Sheets("BDD").Cells(l, 79).Value = TB_photo2.Value
Sheets("BDD").Cells(l, 80).Value = TB_photo3.Value
Sheets("BDD").Cells(l, 81).Value = TB_photo4.Value
Sheets("BDD").Cells(l, 82).Value = TB_photo5.Value
End Sub
Le passage à la ligne se fait correctement, un grand merci à vous tous pour votre aide et vos apports.
A bientôt
PS: ucfoutu :
EDIT: il y a même encore beaucoup mieux à faire (même pas besoin d'un array et, cerise sur le gâteau, pour TOUT traiter en moins de 6 lignes de code), mais nous n'y viendrons que lorsque tu auras passé avec succès ta première étape (ce qui t'a été dit plus haut).
Je suis interresser, pourriez vous m'en dire plus ? ou j'ouvre un autre poste ?
;)
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
211
Modifié par ucfoutu le 16/01/2015 à 13:19
Modifié par ucfoutu le 16/01/2015 à 13:19
Je suis interresser, pourriez vous m'en dire plus ? ou j'ouvre un autre poste ?
Ma petite siesta d'abord (c'est sacré les jours de pluie).
Reviens ce soir. Tu vas voir ...
A +
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
211
Modifié par ucfoutu le 16/01/2015 à 16:27
Modifié par ucfoutu le 16/01/2015 à 16:27
La sieste était bonne.
Nous y voilà donc : ===>>
Avant toute chose :
Pour chaque contrôle de ton Userform dont la valeur doit avoir une répercussion sur une cellule de ta feuille Excel :
En mode création, dans la propriété Tag de ce contrôle, tu mets la lettre (ou les deux lettres) de la colonne de "correspondance":
Exemple : en propriété Tag de la combobox CB_nord, tu mets G
Le code maintenan t ===>>
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend
Nous y voilà donc : ===>>
Avant toute chose :
Pour chaque contrôle de ton Userform dont la valeur doit avoir une répercussion sur une cellule de ta feuille Excel :
En mode création, dans la propriété Tag de ce contrôle, tu mets la lettre (ou les deux lettres) de la colonne de "correspondance":
Exemple : en propriété Tag de la combobox CB_nord, tu mets G
Le code maintenan t ===>>
Private Sub CommandButton3_Click()_________
Static k As Long ' j'ai choisi k plutôt que l car "l" ressemble trop à "1" dans l'éditeur
Dim toto As Control
With Worksheets("BDD")
If k = 0 Then k = .Range("A" & Rows.Count).End(xlUp).Row
k = k + 1
For Each toto In Me.Controls
If toto.Tag <> "" Then
Select Case TypeName(toto)
Case "CheckBox", "OptionButton"
.Range(toto.Tag & k) = String(toto.Value ^ 2, "X")
Case Else
.Range(toto.Tag & k) = toto.Value
End Select
End If
Next
End With
End Sub
_______________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend
niewbiesVBA
Messages postés
51
Date d'inscription
jeudi 15 janvier 2015
Statut
Membre
Dernière intervention
2 mars 2015
16 janv. 2015 à 18:41
16 janv. 2015 à 18:41
Bonsoir ucfoutu,
Donc je viens de voir ton code et je t'en remercie beaucoup, cependant je viens de passer un long moment à mettre les Tag pour mes checkbox (ça en fait du monde...), puis mettre le code en place, j'ai obtenue une erreur à cette ligne :
Je vais donc chercher d'ou vient cette erreur, car elle est peut-être de moi... je reviendrais vous dire demain.
Passez une bonne soirée et merci
Donc je viens de voir ton code et je t'en remercie beaucoup, cependant je viens de passer un long moment à mettre les Tag pour mes checkbox (ça en fait du monde...), puis mettre le code en place, j'ai obtenue une erreur à cette ligne :
.Range(toto.Tag & k) = toto.Value
Je vais donc chercher d'ou vient cette erreur, car elle est peut-être de moi... je reviendrais vous dire demain.
Passez une bonne soirée et merci
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
211
16 janv. 2015 à 18:48
16 janv. 2015 à 18:48
cela est probablement du au fait que tu as mis une lettre inexacte dans la propriété tag d'un contrôle, ou encore que ce contrôle n'a pas de propriété Value.
Quel est ce contrôle ? (tu peux le connaître en affichant msgbox toto.name)
Quel est le message d'erreur reçu ?
Quel est ce contrôle ? (tu peux le connaître en affichant msgbox toto.name)
Quel est le message d'erreur reçu ?
niewbiesVBA
Messages postés
51
Date d'inscription
jeudi 15 janvier 2015
Statut
Membre
Dernière intervention
2 mars 2015
17 janv. 2015 à 14:02
17 janv. 2015 à 14:02
Bonjour ucfoutu,
J'ai placé le MsgBox toto.Name a cet endroit
Et il me renvoit CommandButton2, alors que je clique sur le CommandButton3...
Merci de ton aide
J'ai placé le MsgBox toto.Name a cet endroit
Case Else
MsgBox toto.Name
.Range(toto.Tag & k) = toto.Value
End Select
Et il me renvoit CommandButton2, alors que je clique sur le CommandButton3...
Merci de ton aide
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
211
17 janv. 2015 à 14:22
17 janv. 2015 à 14:22
Cela veut dire que tu as écrit quelque-chose dans la propriété tag de CommandButton2 !
Et il ne faut pas !
Relis ce que je t'ai dit plus haut :
Et uniquement ceux-là !
CommandButton2 n'en est pas un ! Tu ne passes absolument rien de ce bouton dans quelque cellule que ce soit de ta feuille ! Et il n'a pas, d'ailleurs, de propriété Value !
Et il ne faut pas !
Relis ce que je t'ai dit plus haut :
Pour chaque contrôle de ton Userform dont la valeur doit avoir une répercussion sur une cellule de ta feuille Excel
Et uniquement ceux-là !
CommandButton2 n'en est pas un ! Tu ne passes absolument rien de ce bouton dans quelque cellule que ce soit de ta feuille ! Et il n'a pas, d'ailleurs, de propriété Value !
niewbiesVBA
Messages postés
51
Date d'inscription
jeudi 15 janvier 2015
Statut
Membre
Dernière intervention
2 mars 2015
17 janv. 2015 à 14:24
17 janv. 2015 à 14:24
ça doit être une erreur alors car a force je ne voyais plus grand chose lol... je vais voir ça de suite... j'avais bien compris ce que vous m'aviez expliqué rassurez vous...
niewbiesVBA
Messages postés
51
Date d'inscription
jeudi 15 janvier 2015
Statut
Membre
Dernière intervention
2 mars 2015
17 janv. 2015 à 14:29
17 janv. 2015 à 14:29
effectivement, mais cela était du au début de ma réalisation de l'interface, car je croyais que la propriété tag servait pour les info bulles... encore une bêtise de ma part...
Mais je prend note de l'astuce pour le msgbox... c'est très utile ;)
Je vous remercie de votre patience et de votre aide précieuse, je vais tacher maintenant de résoudre mon nouveau problème ;)
Je vous souhaite une agréable journée (et une bonne siesta ;) )
Mais je prend note de l'astuce pour le msgbox... c'est très utile ;)
Je vous remercie de votre patience et de votre aide précieuse, je vais tacher maintenant de résoudre mon nouveau problème ;)
Je vous souhaite une agréable journée (et une bonne siesta ;) )