Contenu récent par Theze

Bonjour, Tu as aussi la procédure événementielle "Worksheet_Calculate()" pour déclencher ta macro, il tu suffit juste de contrôler qu'elle plage de cellules est sélectionnée avant de l'exécuter !

Bonjour, A mettre dans le module de la feuille concernée : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("A1:F10")) Is Nothing Then Exit Sub MsgBox "Information à saisir dans la feuille échéancier !" End Sub

Bonjour, Une piste. La feuille qui récupère les valeurs se nomme "Feuil1", si ce n'est pas ça, adapter dans le code : Sub Test() Dim FeRecap As Worksheet Dim FeCible As Worksheet Dim Plage As Range Dim Lig As Long Set FeRecap = Worksheets("Feuil1") For Each...

Bonjour, Voici un classeur avec une jauge en cadran, la valeur est à faire varier entre -10 et 10. La formule pour le rapport est : Valeur / 0,2 + 50 où "Valeur" doit être située entre -10 et 10. Si tu veux la jauge en forme de règle fais le moi savoir

Bonjour, Avec AutoFill peut être : Sub Test() Range("A1").Formula = "=C5+D8" 'formule en A1... Range("A1").AutoFill Range("A1:G1") '...tirée jusqu'à G1 End Sub

Bonjour, Il te faut séparer les plages : Sub CommandButton1_Click() Dim DLig As Long Dim Trouve As Range Dim Trouve_2 As Range Dim Plg1 As Range Dim Plg2 As Range Dim Date_debut As Date Dim Date_fin As Date Dim AdresseTrouvee As String Dim mon_tab As...

Bonjour, Pour éviter les tests inutiles, le mieux est de poster un exemple avec des données anonymisées !

Bonjour, Partons du principe que tes dates son,t en colonne C et E de ta plage, j'ai épuré ton code pour plus de lisibilité, complète-le si ça marche chez toi. Attention, la recherche de dates avec Find() est assez capricieuse et il peux être plus sûr de formater les valeur en Standard, faire...

Bonjour, J'ai un peu de peine à comprendre, tu cherches dans ton tableau si la valeur choisie dans le ComboBox s'y trouve ? Regardes avec InStr() : If InStr(ComboBox1.Text, Tableau(1, k)) > 0 Then Tableau(2, k) = "Pr" End If

Bonjour, la méthode Find() n'aime tout simplement pas les cellules fusionnées donc, soit tu "défusionnes" soit tu boucles sur chaque cellule : Sub Test() Dim Plage As Range Dim Cel As Range Dim Mot As String Dim VE Set Plage = Range("b1:b100") Mot =...

Bonjour, Voici un classeur exemple dont j'ai modifier le code que j'ai posté précédemment :

Tu peux sélectionner seulement les cellules non vides mais tu ne pourras pas les copier, il te faut des zones carrées ou rectangulaires sinon, il te faut procéder par étape, d'abords une colonne puis l'autre

Bonjour, Une piste mais il te faut initialiser le tableau qui va contenir les noms situés en A1:A5 et bien sûr, ces noms doivent exister et correspondre à la plage de cellule. Pour initialiser le tableau, soit tu changes de feuille pour exécuter automatiquement "Worksheet_Activate()" soit tu...

Bonjour, Une piste : Sub selectionnerCopierTrans_list() Dim Plg As Range, dlig&, Lig& Application.ScreenUpdating = False dlig = Cells(Rows.Count, 6).End(xlUp).Row: If dlig < 5 Then Exit Sub Set Plg = Range(Cells(dlig, 5), Cells(dlig, 6)) For Lig = 5 To dlig - 1 If Not...

Bonjour, Un code pour les mettre toutes au même format : Sub Test() Dim Plage As Range Dim Cel As Range With Worksheets("Feuil1"): Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 2).End(xlUp)): End With For Each Cel In Plage If Cel.Value <> "No...