Résultats de la recherche

Merci ChTi160 pour votre proposition et votre temps. Celle de Dranreb est plus accessible pour mes connaissances mais je ne manquerais pas d'explorer la votre plus en détail. Bonne soirée

Merci Dranreb pour votre temps et votre contribution cela marche parfaitement et répond à ma demande une fois adapté à mes dénominations. Je vous souhaite une excellente soirée. Il ne me reste plus qu'à explorer la syntaxe que vous avez employé pour essayer de m'en approprier quelques bribes.

En utilisant le débogage pas à pas (F8) et avec votre dernière proposition c'est dès que j'arrive sur DataBodyRange.Value de Case Else que l'erreur se produit.

Ça a pour effet de supprimer l'erreur effectivement! (je n'y avais pas prêté garde) mais par contre s'il n'y a qu'une seule entrée dans TBilan, la liste déroulante n'est pas renseignée comme en faisant 1 au lieu de 0 dans votre première proposition.

Non j'obtiens à l'exécution de Case 1: Erreur d'exécution '424' Objet requis

Mince, c'est bien vrai! Ce n'est qu'à partir de l'insertion d'une deuxième entrée que la 1ère apparait! Mettre 1 solutionne les erreurs mais ne permet pas de renseigner la combobox lorsqu'il y a une seule ligne. Très bizarre! Je vous joins le fichier du coup... Si jamais vous avez le temps. Merci

Je viens de trouver! C'est bien If .ListRows.Count > 0 Then qui solutionne le problème en remplaçant 0 par 1. @Dranreb Un grand merci pour votre solution!

Bonjour Dranreb, J'ai modifié mon code et je n'ai plus l'erreur si mon tableau TBilan est vide mais quand j'ajoute une entrée j'ai maintenant une erreur 381: Impossible de définir la propriété LIst.Index de table de propriété non valide. Je ne mets sûrement pas au bon endroit votre proposition...

Merci, simple et efficace! Exactement ce qu'il me fallait! Bonne Soirée

Bonjour à tous, J'ai sur une feuille nommée Bilan un tableau TBilan avec dans une colonne qui a un en-tête "Patient" le nom des patients. J'ai un formulaire sur d'autres feuilles pour entrer mes nouveaux patients et une combobox dans ce formulaire qui reprend, sous forme de liste déroulante ou...

@Gégé-45550 Bonsoir, Après moults essais, tutos, vidéos et en suivant vos pistes, j'ai trouvé l'exacte réponse à mon besoin. La voici: Private Sub UserForm_Initialize() Set Ws = ActiveSheet With Me.cboPrenomDuPatient For j = 15 To Ws.Range("B" & Rows.Count).End(xlUp).Row .AddItem Ws.Range("B"...

Bonjour à tous, Je viens chercher votre aide pour trouver le codage nécessaire pour que quand je coche l'option d'un bouton (virement, chèques ou espèces) et que je valide les valeurs des combobox servent à aiguiller la cellule où rajouter + 1 au chiffre déjà présent. Je vous joins le fichier si...

@RyuAutodidacte et @vgendron Merci mille fois pour votre précieux temps et pour vos contributions! Grace à vos apports j'ai pu trouver ce que je cherchais à faire (entre autre) à savoir entrer une adresse mail dans une textbox de mon formulaire et par le bouton "nouveau" enregistrer cette...

Bon après bidouillage et adaptation tout marche! Un grand merci!!! Une dernière chose, j'essaie de trouver le moyen de créer un lien "mailto" avec l'adresse rentrée dans la textbox Email mais je n'y arrive pas. c'est dans la syntaxe Address que j'imagine le problème. Une proposition? voici le...

Je galère mais je vais fouiner. Merci et bonne soirée

Super!!! Comment faudrait-il faire pour que ça enregistre quand même dans le mois sélectionné mais pas dans la feuille bilan?

Merci pour la réponse, Je me disais que la partie du code que j'ai donné pouvait suffire mais peut être pas... Je joins le fichier Merci pour l'attention

Bonjour, J'ai un formulaire qui me permet d'enregistrer des noms, prénom et diverse données dans une feuille 01 et dans une feuille 02 Je voudrais pouvoir si le nom et prénom se trouve déjà dans la feuille 02 enregistrer ces données dans la feuille 01 mais pas la 02. Pouvez-vous m'aider? Merci...

Magique et ultra rapide! Merci beaucoup, ça faisait des heures que je cherchais!!!!

Bonjour, J'aimerai pouvoir remplacer dans ma formule (ici: ""bb"") par la valeur de ma textbox Me.txtNom. Auriez-vous la syntaxe nécessaire. Merci d'avance et bonne fin de journée Feuil1.Select Feuil1.Range("A1048576").End(xlUp).Offset(1, 0).Select ActiveCell.Offset(0...