Contenu récent par Toushusss

Bonjour, merci à tout les forumistes pour leur aide précieuse :D Je souhaiterai ecrire une ligne de code sur le meme principe que celle ci : Set j = [J:J].Find("*", , , , xlByRows, xlPrevious) [I15] = j Sauf qu'au lieu de chercher simplement la dernière cellule rempli je souhaiterai...

Re : VBA - Taduire une somme en VBA Merci a tous pour votre aide. Je vais utiliser la méthode de job75, c'est celle qui se rapproche le plus de mon code. Merci encore:)

Bonjour le forum Comment traduire la Somme de Cette cellule .RANGE("C" & Tot.Row + 7) à cette cellule .RANGE ("C" & Tot.Row + 10) .Range("C" & Tot.Row + 11).Formula = ? ( Somme décrite précédemment Merci

Re : VBA _ Soucis sur fonction recherche et insertion dans tableau Merci Robert j' ai résolu mo probleme [CODE]With Sheets("EDF").Range("B2:B2000") Set Tot = .Find(UserForm2.ListBox1.Text) If Range("A" & Tot.Row + 7) = "" Then Range("A" & Tot.Row + 7) = UserForm2.TextBox1.Text[\Code]

Re : VBA - Code pour passer à la ligne suivante si une est déja prise Salut Gorfael. Je n'ai que 4 saisis maximum donc pas de probleme si les 4 lignes sont prises. Je réitère mon probleme. J'ai mon tableau avec 4 lignes Vides au départ. Je saisie dans ma userform2 et cela vient s'afficher...

Bonjour, Je continue d'avancer sur mon programme et la je bloque. A partir de ce code Private Sub CommandButton1_Click() Dim ligne As Long Dim Tot As Range With Sheets("EDF").Range("B2:B2000") Set Tot = .Find(UserForm2.ListBox1.Text) Range("A" & Tot.Row + 7) =...

Re : VBA _ Soucis sur fonction recherche et insertion dans tableau Merci Robert, Effectivement C'est mieux. Probleme maintenant ça plante sur cette ligne de code Set Tot = .Range("b1:b" & ligne).Find.UserForm.ListBox1.Text "Erreur définie par l'application ou par l'objet"

Bonjour à toutes et à tous. J'ai rentré ce code Private Sub CommandButton1_Click() Dim ligne As Long Dim Tot As Range ligne = .Range("B" & .Rows.Count).End(xlUp).Row Set Tot = .Range("b1:b" & ligne).Find.UserForm.ListBox1.Text .Range("A" & Tot.Row + 7) = TextBox1.Text End...

Re : VBA _ Aide sur parametrage userform et checkBox Merci bond. :D C'est super pile poile ce que je voulais, T'est trop fort Merci encore

Re : VBA _ Aide sur parametrage userform et checkBox Voila ! Merci

Re : VBA _ Aide sur parametrage userform et checkBox Merci , mais cette fois ci ça me renvoie une erreur d'execution 402 "Vous devez d'abord fermer ou masquer la feuille modale de premier plan" Je sais pas ce que ça veut dire ?

Re : VBA _ Aide sur parametrage userform et checkBox Voila le fichier. Au demarage tu as les checkBox que tu selectionne par exemple la Gaz et EDF tu valides une autre userform ( LA 4) rentre une année au hazard . Valide et la ça marche plus Merci pour ton aide

Re : VBA _ Aide sur parametrage userform et checkBox Salut Bond ! Toujours le meme probleme. Maintenant vu que la commande de fermeture de la userform4 est aprés les conditions if cela ferme bien mais par contre les autres userforms n'apparaissent pas ?:confused: Je ne vois pas ou ça bug

Re : VBA _ Aide sur parametrage userform et checkBox Je viens de tester mais idem rien ne se produit en cliquant sur valider Voici le code remanier Si quelqu'un savait ou sa plante. Merci Private Sub CommandButton1_Click() With Sheets("GAZ") .Range("A1") = "ANNEE " & UserForm4.TextBox1...

Re : VBA _ Aide sur parametrage userform et checkBox Salut Bond. Oui desol je viens de corriger ma demande avec les bonnes numerotation. Merci pour ton aide je vais essayer de ce pas