Macro collage special avec valeur

Salut à tous

Je cherche une macro qui me permettra de réaliser un copié - collé lorsque certaines conditions seraient vérifiées (voir fichier joint).

voici les conditions:

• si E13 <>"", que les cellules B5, E13 et B17 soient copiées et collées respectivement sur la feuille MANQUANT B3, C3 et C4
• je souhaite qu'à chaque exécution de la macro, les mêmes cellules (B5, E13 et B17) soient copiées et collées à la suite des cellules B, C et D de la feuille MANQUANT

N.B: les cellules copiées et collées ne doivent plus varier (donc de préférence collage spécial avec valeur)

Bonne compréhension

Bonjour Zombe le forum

tu veux copier à quel moment???

la macro je peux te la faire, mais tu pars toujours de la feuille "donnée" ???

si tu me réponds tu auras ta macro

mais surtout dis moi comment tu souhaites lancer la macro

a+

papou

Bonjour à tous,

Bouton dans feuille "Donne"

Sub Manquant()
Dim Cel As Range, Lg As Long
        Sheets("Donne").Activate
    '--- contrôle saisie ---
        If Range("e13") = "" Then Exit Sub
    For Each Cel In Range("b5,b17")
        If IsEmpty(Cel) Then
            Cel.Activate
            MsgBox ("Champ  " & Cel.Offset(0, -1) & "  Obligatoire")
            Exit Sub
        End If
    Next Cel
    '---
    With Sheets("MANQUANT")
        Lg = .Range("b" & Rows.Count).End(xlUp).Row + 1
        .Range("b" & Lg) = Range("b5")
        .Range("c" & Lg) = Range("e13")
        .Range("d" & Lg) = Range("b17")
        .Activate
    End With
End Sub

Amicalement

Claude

Salut

Merci pour le feedback.

La macro que vous avez developpé fonctionne à merveille.

Seulement que nous avons omis un paramètre qui est la suivante :

Lorsque la celle E13<>"", que rien ne soit copié.

Pouvez vous revoir le code en tenant compte du paramètre ci-dessus?

Merci à vous.

Bonjour Zombe le forum,

Voilà ton fichier en retour avec ce que tu souhaites, enfin je pense

car quand je lis ta dernière demande je doute un peu de ce que tu souhaites ou alors tu dis l'inverse de ce que tu penses

car si E13<>"" cela signifie qu'il manque un éléments et donc tu dois le copier !!!!!

par contre si E13="" là ne rien copier !!!! enfin je pense que.

a+

papou

Bonjour à tous,

il y a contradiction dans tes 2 énoncés

1) - si E13 <>"", que les cellules B5, E13 et B17 soient copiées et collées .....

2) Lorsque la celle E13<>"", que rien ne soit copié.

la macro prend le 1), précise le bon !

Claude

Salut à tous

Au faite quand je regarde dans votre code(ceui de dubois), vous avez mis:

- si E13="" alors que moi j'avais demandé si E13<>"".

Voila pourquoi dans ma 2è réponse j'ai voulu que vous tenez compte du cas ou la cellule E13 serait vide.

Voici ce que je veux que prenez en compte :

• si la cellule E13 contien une valeur (<>"") que la copie demandée se réalise,
• sinon si la cellule E13 ne contient pas de valeur, que rien ne soit copié.

Merci d'en tenir compte dans vos codes (Dubois et Paritec).

re,

J'ai écris

    '--- contrôle saisie ---
        If Range("e13") = "" Then Exit Sub

donc, si vide en "e13", on ne copie rien

Claude

Bonjour tous même les maîtres excel

car quand je lis ta dernière demande je doute un peu de ce que tu souhaites ou alors tu dis l'inverse de ce que tu penses

car si E13<>"" cela signifie qu'il manque un éléments et donc tu dois le copier !!!!!

par contre si E13="" là ne rien copier !!!! enfin je pense que.

Merci d'en tenir compte dans vos codes (Dubois et Paritec).

oui Zombe c'est bien ce que mon code fait, et pas autre chose; maintenant si chez toi cela copie quelques choses, 2 possibilités ou tu copies mal ou ton fichier n'as pas la même structure que le fichier joint en modèle et dans ce cas , excuses moi mais je ne lis pas dans les astres!!!!!

a+

papou

re,

tu nous expliqueras la différence entre:

si E13 <>"", on copie

si E13 ="", on ne copie pas

Claude

Ok si je me suis pas très bien fait comprendre.

Je vais argumenter sur la base de la condition que vous avez posée dans vos codes.

Si cette condition n'est pas vérifiée, qu'est qui se passera?

Dubois dit :

dubois a écrit :

re,

tu nous expliqueras la différence entre:

si E13 <>"", on copie (cela signifie qu'il y' a un contenu dans la cellule E13)

si E13 ="", on ne copie pas (cela signifie que la cellule E13 est vide

Merci pour le temp que vous me consacrez et tout ce qui a deja été fait.

Je reste à l'écoute

Claude

re,

sans rien changer, voici le fichier;

qu'est-ce qui ne va pas ?

Bonjour Tous,

Zombe, je pense que tu ne sais pas exprimer ce que tu souhaites, mais bon une idée.

tu veux que si tu cliques deux fois sur le bouton tu n'aies que une seule fois les cellules de copiées ?

si c'est le cas voilà autrement expliques

a+

Papou

Saltut

dubois a écrit :

Bonjour à tous,

il y a contradiction dans tes 2 énoncés

1) - si E13 <>"", que les cellules B5, E13 et B17 soient copiées et collées .....

2) Lorsque la celle E13<>"", que rien ne soit copié.

la macro prend le 1), précise le bon !

Claude

Pour le cas 2, il faudra remplacer le signe <> par une égal.

Ce qui donne ceci:

1) - Si E13<>"", que la cellule b5, e13 et b17 soient copiées et collées,

2) - Lorsque la cellule E13 ="", que rien ne soit copié.

Peut-tu revoir ton code en tenant compte des éclaircissement que je viens d'apporter?

Après avoir apportez les corrections de votre code, pouvez-vous tester la macro avec le fichier joint initialement?

Merci pour la compréhension

Bonjour à tous,

Dialogue de sourd ! , je ne parle pourtant pas javanais !!

J'ai écris dans mon code

        '--- contrôle saisie ---
           If Range("e13") = "" Then Exit Sub

donc, si vide en "e13", on ne copie rien

Qu'est-ce qui ne marche pas ?

qu'y a t-il dans la cellule E13 ?

Claude

Bonsoir Tous,

alors c'est pourtant simple si c'est blanc on copie et si c'est blanc on ne copie pas

Il faut juste deviner quand c'est blanc et quand ça ne l'est pas !!!!!!

Zombe, franchement tu dis :

1) - Si E13<>"", que la cellule b5, e13 et b17 soient copiées et collées,
2) - Lorsque la cellule E13 ="", que rien ne soit copié.

Donc si E13<>"" signifie si E13 est remplie ou plus exactement différente de "" , donc différente de vide.

et en dessous tu nous mets

si E13 = "" donc si E13 est vide

Et les macros de dubois ainsi que la mienne font exactement cela, maintenant tu as quoi dans ta cellule

E13 ??? peut-on avoir le vrai fichier ?? as tu une formule dans cette cellule????

en bref nos macros marchent si le fichier est comme celui que tu nous as posté par contre s'il est différent là a voir

a te relire

a+

papou

Salut à tous plus précisément Paritec et Dubois.

J'ai enfin trouvé ce que je cherchais avec le fichier de Paritec..

Zombe, je pense que tu ne sais pas exprimer ce que tu souhaites

De mon côté, je dirai tout simplement qu'on se comprend pas.

J'ai plusieurs foi posé des cas plus complexe et j'ai été satisfai pour

dir que je sai poser mes besoins.

Faites une comparaison des fichiers que chacun de vous a joint, vous verrez

qu'en exécutant la macro, lorsque la cellule donne!E13 ne contient pas de valeur, chez Dubois ca copie

mais chez paritec ca ne copie pas (c'est ce que je voulais). Le nouveau code proposé par paritec permet d'éviter les doublons.

Je ne vous compare pas mais je veux que chacun de nous comprenne l'autre.

Que Dieu vous bénisse et vous donne l'energie necessaire pour nous aider.

Re Zombe le forum

oui donc en gros depuis le post 5, tu nous dis cela ne marche pas, alors que cela marchait déjà très bien avec ma macro !!!!

Tu dis aussi savoir posé tes besoins ???? !!!!!!!!!

Non moi je dirais, que tu tombes sur des gens, qui font l'effort de te comprendre, c'est pas tout à fait la même chose.

Et quoi qu'il en soit l'essentiel est que tu aies eu la réponse souhaitée

a+

papou

Bonjour zombe, forum,

le principal, c'est que tu aies ta réponse,

n'oublie pas la petite formalité