Userform non modal

Bonsoir,

Je lance la macro ci après

Sub copy_1ppo()
UserForm2.Show

Application.ScreenUpdating = False
     Dim num As Integer

     If Range("k6").Value < 14 Then                                     '6
     num = Range("f101").Value
     Sheets("66_128 eq").Range("k6:l6").copy
     Sheets("resultat").Range("d" & num).PasteSpecial Paste:=xlPasteValues
     End If
     If Range("l6").Value < 14 Then
     num = Range("j101").Value
     Sheets("66_128 eq").Range("l6").copy
     Sheets("resultat").Range("d" & num).PasteSpecial Paste:=xlPasteValues
     Sheets("66_128 eq").Range("k6").copy
     Sheets("resultat").Range("e" & num).PasteSpecial Paste:=xlPasteValues
     End If
     If Range("k7").Value < 14 Then                                     '7
     num = Range("f102").Value
     Sheets("66_128 eq").Range("k7:l7").copy
     Sheets("resultat").Range("d" & num).PasteSpecial Paste:=xlPasteValues
     End If
     If Range("l7").Value < 14 Then
     num = Range("j102").Value
     Sheets("66_128 eq").Range("l7").copy
     Sheets("resultat").Range("d" & num).PasteSpecial Paste:=xlPasteValues
     Sheets("66_128 eq").Range("k7").copy
     Sheets("resultat").Range("e" & num).PasteSpecial Paste:=xlPasteValues
     End If     
     ' ces copies sont au nombre de 128     
     Application.ScreenUpdating = True
 UserForm2.Hide
End Sub

Dans les propriétés de Userform j'ai déclaré modal = false.

Le userform s'affiche bien pendant l'exécution de la macro

le problème est que l'userform s'affiche sans couleur et sans texte.

Merci de m'aider à solutionner .

Pierre br

Bonjour,

Merci de joindre un fichier à ta demande.

Cdlt.

Bonjour

Ci joint le fichier

Pour lancer la Macro : Aller dans l'onglet "66_128 eq"

et en k70 bouton copie.

Merci de votre aide

Pierre BR

Bonjour,

Dans les propriétés de UserForm2, mettre la propriété ShowModal à true.

Salut Jean-Eric, pierre_br

Voici ton fichier modifié

la macro peut être réduit en quelques linges 10 lignes ou moins, a laide d une instruction for ...next (boucle)

ce qui tu aide a ajouter une barre de progression !?

Bonjour

les modifications que vous avez apportées me permettent

d'afficher userform comme je le souhaitais.

Merci pour votre aide.

l'instruction for ... next je l'ai découverte depuis peu.

je l'ai mis en place sur ma macro.

Par contre je ne trouve pas la syntaxe pour copier directement sur

la feuille "resultat"

je passe par le biais d'une copie sur la feuille "66_128 eq"

Pouvez vous m'indiquer la solution.

cordialement

Pierre

voir fichier joint

Salut pierre_br

pierre_br a écrit :

Par contre je ne trouve pas la syntaxe pour copier directement sur

la feuille "resultat"

je passe par le biais d'une copie sur la feuille "66_128 eq"

Pouvez vous m'indiquer la solution.

je t’avoue que je ne comprend pas bien le problème

Bonsoir

J'ai trouvé la solution : voir la 2ème ligne

je ne trouvais pas la syntaxe Destinaton

.Range("k" & i).copy .Range("bp" & .Range("d" & i))

.Range("k" & i).Copy Destination:=sheets("resultat").Range("bp" & .Range("D" & i)).

Par contre je suis à la recherche de la solution pour décaler ma copie.

Avec cette formule

si en d5 je rentre 10 le contenu de k5 est copié en bp10 et

je souhaiterais le copier en bp10+5 soit bp15

Si tu peux me donner la solution

D"avance Merci

Pierre

Bonsoir,

avec un "+5", non ?

@ bientôt

LouReeD

Salut LouReeD, pierre_br

comme a dit LouReeD essai ça :

stps=5
.Range("k" & i).Copy Destination:=Range("bp" & .Range("D" & i).Value + stps)

bonsoir

("+5") ni + ("5) ne fonctionnent.

merci de revoir

Pierre

Re Bonsoir

super ça fonctionne

Merci

Pierre

Bonjour,

Veuillez m'excuser pour vous avoir égaré... Les guillemets n'étaient là que pour "surligner" le +5...

@ bientôt

LouReeD