JerCaz
XLDnaute Occasionnel
Bonjour le forum,
Dans le cadre de la création d'un fichier excel partagé entre plusieurs utilisateurs, à des fins professionnelles, j'ai créé un document comportant plusieurs onglets.
Sollicitant votre aide depuis une connexion professionnelle ultra bridée, je ne suis malheureusement pas en mesure d'héberger sur "ci-joint" un exemple.
Cependant, j'arrive à héberger le fichier sur "archive-host" (par conséquent, je m'excuse par avance d'être hors charte).
Enfin bref, j'en arrive au vif du sujet.
Mon fichier contient plusieurs onglets:
- "coordonnateur"
- "3bcardio"
etc...
J'ai créé un UserForm qu'on exécute à partir de l'onglet "Coordonnateur".
Mon objectif est que pendant l'éxécution du UserForm, à la validation par le Bouton "OK", il y ait une insertion d'une nouvelle ligne entre les lignes 4 et 5 dans l'onglet en cours, puis le remplissage des cellules A5 à J5 se fait en fonction des infos renseignées dans les différents COmboBox, TextBox et CheckBox contenus dans ce UserForm.
Mais je souhaiterais que simultanément ET SANS L'AFFICHER, il y ait l'insertion d'une nouvelle ligne entre les lignes 3 et 4 de l'onglet "Coordonnateur", et un recopiage des données renseignées dans mon premier onglet.
Le code que j'ai inclu dans le UserForm est donc le suivant:
Le soucis avec ce code, c'est que l'onglet "Coordonnateur" s'affiche à l'écran, ce que je ne peux pas me permettre.
Voici un extrait de mon fichier (encore mille fois désolé de ne pas pouvoir utiliser "ci-joint")
Voir le Fichier : Brancardage.zip
Je sollicite donc votre aide pour éclairer ma lanterne et résoudre ce casse-tête qui devient prise de tête.
Vous remerciant grandement de vous pencher sur mon problème,
cordialement,
JerCaz
Dans le cadre de la création d'un fichier excel partagé entre plusieurs utilisateurs, à des fins professionnelles, j'ai créé un document comportant plusieurs onglets.
Sollicitant votre aide depuis une connexion professionnelle ultra bridée, je ne suis malheureusement pas en mesure d'héberger sur "ci-joint" un exemple.
Cependant, j'arrive à héberger le fichier sur "archive-host" (par conséquent, je m'excuse par avance d'être hors charte).
Enfin bref, j'en arrive au vif du sujet.
Mon fichier contient plusieurs onglets:
- "coordonnateur"
- "3bcardio"
etc...
J'ai créé un UserForm qu'on exécute à partir de l'onglet "Coordonnateur".
Mon objectif est que pendant l'éxécution du UserForm, à la validation par le Bouton "OK", il y ait une insertion d'une nouvelle ligne entre les lignes 4 et 5 dans l'onglet en cours, puis le remplissage des cellules A5 à J5 se fait en fonction des infos renseignées dans les différents COmboBox, TextBox et CheckBox contenus dans ce UserForm.
Mais je souhaiterais que simultanément ET SANS L'AFFICHER, il y ait l'insertion d'une nouvelle ligne entre les lignes 3 et 4 de l'onglet "Coordonnateur", et un recopiage des données renseignées dans mon premier onglet.
Le code que j'ai inclu dans le UserForm est donc le suivant:
Code:
Private Sub CommandButton1_Click()
'insérer une nouvelle ligne dans l'onglet actif
Rows("5:5").Select
Selection.Insert Shift:=xlDown
Selection.RowHeight = 12.75
Range("J5") = "Non"
Range("A5").Select
'remplir la nouvelle ligne de l'onglet du service
Range("A5") = TextBox1
Range("B5") = TextBox2
Range("C5") = TextBox3
Range("D5") = ComboBox1
Range("E5") = ComboCard
Range("F5") = ComboBox2
Range("G5") = ComboBox3
Range("H5") = TextBox4
Range("I5") = ComboBox4
Select Case CheckBox1.Value
Case True: Range("J5") = "Oui"
Case False: Range("J5") = "Non"
Case Else: Range("J5") = "Non"
End Select
'copie la sélection dans l'onglet du coordonnateur
Rows("5:5").Select
Selection.Copy
Sheets("Coordonnateur").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Selection.RowHeight = 12.75
Unload Me
End Sub
Le soucis avec ce code, c'est que l'onglet "Coordonnateur" s'affiche à l'écran, ce que je ne peux pas me permettre.
Voici un extrait de mon fichier (encore mille fois désolé de ne pas pouvoir utiliser "ci-joint")
Voir le Fichier : Brancardage.zip
Je sollicite donc votre aide pour éclairer ma lanterne et résoudre ce casse-tête qui devient prise de tête.
Vous remerciant grandement de vous pencher sur mon problème,
cordialement,
JerCaz