3682 résultats trouvés

par Theze
Aujourd’hui, 07:49
Forum : Excel - VBA
Sujet : Copier ligne filtée vers une autre ligne filtrée
Réponses : 2
Vues : 47

Re: Copier ligne filtée vers une autre ligne filtrée

Bonjour, A tester mais sans fichier ? Sub Macro16() Dim Lig As Long 'les résultats son collés sur la feuille "RH POLYVALENCE" With ActiveSheet.Range("$A$13:$CY$997") '<-- connais pas le nom de la feuille ! .AutoFilter 18, "MULON BENJAMIN" .AutoFilter.Range.EntireRow.Copy Worksheets("RH POLYVALENCE")...
par Theze
Hier, 15:44
Forum : Excel - VBA
Sujet : Récupérer des données saisies d'un formulaire VBA
Réponses : 11
Vues : 133

Re: Récupérer des données saisies d'un formulaire VBA

Bonjour, Comme dit Galopin, cette ligne de code n'a pas vraiment de sens car quand on utilise ce type d'instruction : Range("Tableau5")(Index).Propriété voulue en fait, on fait référence à la cellule ordinale donc, si par exemple le tableau contient 5 colonnes, cette instruction : Range("Tableau5")(...
par Theze
Hier, 07:24
Forum : Excel - VBA
Sujet : N° de la ligne qui contient les valeurs de deux textbox
Réponses : 3
Vues : 72

Re: N° de la ligne qui contient les valeurs de deux textbox

Bonjour, Tu peux par exemple utiliser une variable de niveau module (déclarée en tête de module ici, "Lig") qui sera paramétrée dans la recherche et qui va garder sa valeur tant que le formulaire est actif : Dim Lig As Long Private Sub CommandButton1_Click() MsgBox "Le numéro de ligne est : " & Lig ...
par Theze
16 septembre 2019, 21:08
Forum : Excel - VBA
Sujet : Récupérer des données saisies d'un formulaire VBA
Réponses : 11
Vues : 133

Re: Récupérer des données saisies d'un formulaire VBA

Bonjour,

Personnellement, je n'accepte pas les messages en privé car sinon, on ne joue pas le jeu d'entraide du forum mais par contre, tu peux faire une copie de ton fichier et l'anonymiser pour le poster afin qu'on puisse réaliser des tests et trouver d'où peut venir le problème !
par Theze
16 septembre 2019, 21:03
Forum : Excel - VBA
Sujet : N° de la ligne qui contient les valeurs de deux textbox
Réponses : 3
Vues : 72

Re: N° de la ligne qui contient les valeurs de deux textbox

Bonjour, Ce n'est pas And mais & (l'esperluette) et il te faut impérativement contrôler si la recherche est fructueuse sinon, plantage ! Dim sel As Range Dim ligne As Integer Set sel = Sheets("Feuil1").Cells.Find(Me.TextBox1.Value & TextBox5.Value, , xlValues, xlWhole) 'il faut impérativement contrô...
par Theze
15 septembre 2019, 17:31
Forum : Excel - VBA
Sujet : Rang selon entrée de données
Réponses : 6
Vues : 82

Re: Rang selon entrée de données

Re,

Voici un classeur test :
Activité.xlsm
(17.34 Kio) Téléchargé 3 fois
par Theze
15 septembre 2019, 15:54
Forum : Excel - VBA
Sujet : Remplir tableau à partir d'un formulaire
Réponses : 5
Vues : 76

Re: Remplir tableau à partir d'un formulaire

Re,

Tu formates la première cellule de la colonne en "Nombre", comme c'est un tableau structuré, ce format sera répété sur les cellules de dessous et dans le code donné, tu changes la ligne :
Lig.Range(, 5).Value = Quant
par celle-ci :
Lig.Range(, 5).Value = CDbl(Quant)
par Theze
15 septembre 2019, 08:45
Forum : Excel - VBA
Sujet : Dernière ligne du jour interior color 17
Réponses : 2
Vues : 50

Re: Dernière ligne du jour interior color 17

Bonjour, Voir le code ci-dessous ! C'est une condition qui t'empêche de colorer la ligne, je l'ai mise en commentaire : Sub DerniereLigne() Dim i&, dat As Date, nb&, fin&, nbj&, col, a& Application.ScreenUpdating = 0 For i = 1 To Sheets.Count If Sheets(i).Name <> "MENU" Then With Sheets(i) fin = .Ra...
par Theze
15 septembre 2019, 08:32
Forum : Excel - VBA
Sujet : Rang selon entrée de données
Réponses : 6
Vues : 82

Re: Rang selon entrée de données

Bonjour, Je ne sais pas comment fonctionne ton Excel (j'ai 2007) mais voici un code à mettre dans le module de la feuille concernée et tester pour voir si ça fonctionne : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then Exit Sub If Target.Count > 1 Then Exit Sub Applica...
par Theze
15 septembre 2019, 08:23
Forum : Excel - VBA
Sujet : Remplir tableau à partir d'un formulaire
Réponses : 5
Vues : 76

Re: Remplir tableau à partir d'un formulaire

Bonjour, Essais de cette façon : Private Sub ToggleButton1_Click() Dim Lig As ListRow If DateDemande = "" Or DateDemande = "jj/mm/aaaa" Or DateRetrait = "" Or DateRetrait = "jj/mm/aaaa" Or ComboBox1 = "" Or ComboBox2 = "" Or ComboBox3 = "" Or Quant = "" Then MsgBox ("Toutes les informations ne sont ...