Contenu récent par hemerode

Patrick, Sur mon userform, j'ai 4 controles. Je les ai decalés afin que tu les voies. Voir la pièce jointe. J'ai rajouté un 2nd userform pour mettre en lumière ma préoccupation.:) Je souhaite utilisé la classe1 avec "USERFORM1", faire fonctionner l'évènement mouse over.

Patrick, j'ai posté le fichier.

Voici le fichier présentant ma situation. Cordialement

Bonjour à tous, J'ai l'evènement MouseMove que j'ai mis dans un module de classe fonctionne parfaitement sur mon Userform (UF_Valeur). Moi je souhaite utiliser la classe1 sur plusieurs userform. Je pense que le userform doit etre dynamique. UF_Valeur.Controls(Left(dImages.Name, 6) Je ne sais...

Merci, Ca marche!

Bonjour à tous, Je souhaite reporter une serie de nombre dans les colonnes identifiées sous la forme: Texte = "3,5,8,9,12,17". Le contenu du TEXTE peut changer de façon dynamique. Lorsque j’exécute la macro : Message Erreur exécution '13 Ci-dessous la macros Dim Plage As Range, i As Integer...

Merci Pierre pour votre aide.

Bonjour à tous, J'ai ce tableau variable de 2D Dim arrExemple(), p ReDim arrExemple(1 To 3, 1 To 5) Je veux modifier la 1ere dimension. arrExemple = Application.Transpose(arrExemple) ReDim arrExemple(1 To 5, 1 To p) arrExemple = Application.Transpose(arrExemple) Cela fonctionne...

En fait mon tableau se rempli via des macros. Parcontre je ne sais comment obtenir les resultats.

Bonjour à tous, Je veux pouvoir calculer par une macro la formule =SOMMEPROD((F6:K6)*(F8:K8+100)*B8*C8)/10000 fichier en pièce jointe J'ai pensé à une variable tableau parce que 4000 résultats peuvent être attendu en fonction de la quantité des données. Mais j'ai pensé qu'utiliser...

Bonjour à tous, J'ai cette barre de progression de Sébastien Mathier que je souhaite utiliser sur plusieurs macros avec la barre qui part de 0 à 100 sachant que le nombre d'itérations peut changer d'une macro a une autre. Mais je constate qu'au début des macros suivantes, le contenu de userform...

Merci pour ton aide. La fenetre d’exécution pour la concaténation est ok. Parcontre lorsque j'utilise .select je n'ai pas le résultat attendu.

Bonjour à tous J'ai cette macro que j'aimerai faire en mode dynamique avec une itération for i= 0 to 30 step 10 Comme vous pouvez le voir, c'est une sélection multiple. Range("A11:A16,D11:N16").select Range("""" & "A" & 11 + i & ":A" & 16 + i, "D" & 11 + i & ":N" & 16 + i & """").Select J'ai...

Merci Robert, Ça fonctionne.

Bonjour à tous, Mon problème est que cette macro ne fonctionne que si la feuille "Feuil1" est active. Dim Col_Status As Range Set Col_Status = Sheets("Feuil1").Range("K2:K501") For n = 0 To 10 If Col_Status.Cells(n + 1, 1) = "EnCours" Then Debug.Print...