7701 résultats trouvés

par h2so4
Aujourd’hui, 12:23
Forum : Excel - VBA
Sujet : Retourner un Dictionnaire Dans une fonction
Réponses : 4
Vues : 30

Re: Retourner un Dictionnaire Dans une fonction

bonjour, comme tu passes le dictionnaire dans les paramètres pas besoin de définir une fonction une sub suffit. Public Sub rec_get_all_dum(start_row, res) 'sub récursive, mais je ne vois pas la nécessité de cette récursivité (voir sub alternative ci-dessous) If Not IsEmpty(Cells(start_row, 1)) Then ...
par h2so4
Aujourd’hui, 11:04
Forum : Excel - VBA
Sujet : Répéter une cellule X fois selon la valeur d'une autre cellule (VBA)
Réponses : 2
Vues : 20

Re: Répéter une cellule X fois selon la valeur d'une autre cellule (VBA)

bonjour, une proposition via une macro Sub aargh() Dim parking() Set ws = Sheets("dashboard") ws.Range("D2:D100000").Clear With Sheets("import") dl = .Cells(Rows.Count, "c").End(xlUp).Row ptr = -1 curpar = "" For i = 2 To dl If curpar <> .Cells(i, "c") Then If i > 2 Then pd = .Cells(i - 1, "D") pu =...
par h2so4
Hier, 16:48
Forum : Excel - VBA
Sujet : Erreur 9 - L'indice n'appartient pas à la sélection
Réponses : 6
Vues : 53

Re: Erreur 9 - L'indice n'appartient pas à la sélection

bonjour, edit : bonjour Theze le message indique que n a une valeur supérieure à la dimension maximum de ton tableau ref(). quant à dire pourquoi, pour moi le code ne suffit pas à comprendre, il faudrait aussi les données.=> donc merci de mettre le fichier ou un fichier exemple dans lequel tu as pu ...
par h2so4
Hier, 16:26
Forum : Excel - VBA
Sujet : Boucle + .FindNext ne trouve pas toutes mes occurences
Réponses : 8
Vues : 44

Re: Boucle + .FindNext ne trouve pas toutes mes occurences

bonjour, Fonctionne aussi, trouve bien les 4 occurrences mais efface la ListBox et n'en laisse plus qu'une à la fin, je souhaiterai que les 4 occurrences restent dans la ListBox et ne s'efface qu'au démarrage d'une nouvelle recherche. c'est ce que fait la macro que j'ai fournie. il y a peut-être une...
par h2so4
Hier, 14:57
Forum : Excel - VBA
Sujet : nb.si
Réponses : 1
Vues : 23

Re: nb.si

bonjour,

oui très probablement :mrgreen:. Je t'invite à prendre connaissance des règles du forum (voir rappel)
par h2so4
Hier, 14:55
Forum : Excel - VBA
Sujet : Boucle + .FindNext ne trouve pas toutes mes occurences
Réponses : 8
Vues : 44

Re: Boucle + .FindNext ne trouve pas toutes mes occurences

bonjour, proposition de correction Private Sub RechercheButton1_Click() Dim Val_chercher As Range Dim Val_trouver As Range Dim Value As String Dim result As String Set Val_chercher = Worksheets("Feuil2").Range("C2:C171") 'zone de recherche 'Vidage de la ListBox1 ListBox1.Clear With Val_chercher Set ...
par h2so4
Hier, 14:44
Forum : Excel - VBA
Sujet : Ecriture automatique sur cellules précédentes
Réponses : 4
Vues : 31

Re: Ecriture automatique sur cellules précédentes

bonjour, une manière simple (mais répétitive si tu as beaucoup de feuilles) est de copier la macro dans le module de chaque feuille sur laquelle tu veux cette possibilité. pour copier le code. sélectionner la feuille sur laquelle le code est actif. faire un clic-droit->voir code sélectionner le code...
par h2so4
Hier, 13:58
Forum : Excel - VBA
Sujet : Ecriture automatique sur cellules précédentes
Réponses : 4
Vues : 31

Re: Ecriture automatique sur cellules précédentes

bonjour,

tu ne pourras pas mettre des X dans des cellules avec une mise en forme conditionnelle

une solution via une macro événementielle
par h2so4
Hier, 11:30
Forum : Excel - VBA
Sujet : comparer deux plages
Réponses : 4
Vues : 55

Re: comparer deux plages

bonjour,

solution via une macro
par h2so4
Hier, 09:47
Forum : Excel - VBA
Sujet : Bug Macro
Réponses : 1
Vues : 32

Re: Bug Macro

bonjour, proposition de correction de ton code Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ' envoi un mail automatique avec le contenu de l'anomalie ' Consignes de migration: rajouter un statut "Non diffusée" dans la dernière colonne du tableau ' Donner accès à Exce...