si cellule >0 alors copie contenu de cellules (cellules EN COLONNE)

[pierre4]

bonjour,

SI dans G1:G18 quantité (supérieur à 0)--- je veux copier le contenu des cellules D1😀18-- -----dans C2 (séparés d'une virgule)

je voudrais une formule concernant une série de cellules D1😀18 et non une formule :cellule + cellule+ cellule+…

je ne veux pas par exemple...=SI(G12>0;D12&", "😉&SI(G13>0;D13&", "😉&SI(G14>0;D14&", "😉
merci de votre aide...
Pierre

 

[JNP]

Re : si cellule >0 alors copie contenu de cellules (cellules EN COLONNE)

Bonsoir Pierre4 🙂,
Si vraiment tu veux une FORMULE, regarde ICI, tu as une (excellente, comme d'habitude)solution de Monique, mais je te conseilles l'aspro en même temps 🙄...
Sinon, dans le même fil, tu trouveras une solution VBA qui sera certainement beaucoup plus simple 😛...
Bon courage 😎

 

[hoerwind]

Re : si cellule >0 alors copie contenu de cellules (cellules EN COLONNE)

Bonjour, salut JNP,

Proposition par formule matricielle faisant appel à une fonction complémentaire Morenfunc (sans aspirines).

Voir la pièce jointe.

 

[JNP]

Re : si cellule >0 alors copie contenu de cellules (cellules EN COLONNE)

Re 🙂,

Proposition par formule matricielle faisant appel à une fonction complémentaire Morenfunc (sans aspirines).

Il me semble qu'au dernières nouvelles, MoreFunc n'était toujours pas compatible 2010 🙄... Or le post est pour 2010 😛...
Bonne soirée 😎

 

[hoerwind]

Re : si cellule >0 alors copie contenu de cellules (cellules EN COLONNE)

Salut JNP,

Où as-tu vu que la formule proposée devait être compatible 2010 ?

En dehors de MCONCAT, je ne vois pas de solution par formule.

 

[pierre4]

Re : si cellule >0 alors copie contenu de cellules (cellules EN COLONNE)

bonjour à tous et merci pour votre aide efficace!

j'ai trouvé avec cette formule (lié à un fichier externe)
=ConcatPlage(G32:G48;"";", ") cela marche pour une plage

mais avec la condition si plage D32😀48 cellules contenant un chiffre: je n'y arrive pas
un truc un peu comme cela...: =concatplage.xls!ConcatPlage(D32😀48;SI(ESTNUM(G32:G48<>0);D32😀48);", ") ???

est ce possible de mettre concatplage dans mon fichier? et Comment?
je ne connait pas le vba!
merci
Pierre4

 

[hoerwind]

Re : si cellule >0 alors copie contenu de cellules (cellules EN COLONNE)

Re,

Il me semble que la fonction ConcatPlage (tout comme Mconcat) ne soit pas native sous Excel, à moins que ce soit sous XL2010, que je ne connais pas.

Difficile de t'aider sans voir cette fonction, essaie de remplacer sous la formule proposée sous le message #3 le Mconcat par ConcatPlage, en n'oubliant pas de valider en matricielle.

 

[pierre4]

Re : si cellule >0 alors copie contenu de cellules (cellules EN COLONNE)

{=SUBSTITUE(ConcatPlage(SI(ESTNUM(G24:G40)*(G24:G40>0);D24😀40);", ")&", ";"FAUX, ";"")}
j'ai validé en matricielle cela me mets #valeur!
je n'ai pas compris !

 

[JNP]

Re : si cellule >0 alors copie contenu de cellules (cellules EN COLONNE)

Re 🙂,

Où as-tu vu que la formule proposée devait être compatible 2010 ?

Ben, dans la question du post 😛...

[Excel 2010] si cellule >0 alors copie contenu de cellules (cellules EN COLONNE)

Mais c'est vrai que je n'y fait pas non plus attention systématiquement 🙄.
Et comme je suis en 2010, j'ai du abandonner cet excellent développement de Laurent Longre, car sa dernière mise à jour date du 01/12/2007, et comme elle est basée sur du C++, je pense que c'est pour cela qu'elle n'a pas passé le cap de 2010 😱...
Bonne journée 😎

 

[hoerwind]

Re : si cellule >0 alors copie contenu de cellules (cellules EN COLONNE)

Salut JNP,

Effectivement !

Il faudrait peut-être demander à DavidXLD d'afficher également le [...] dans le post ?

 

[pierre4]

Re : si cellule >0 alors copie contenu de cellules (cellules EN COLONNE)

Peut on m'aider à reformuler🙂


=SI(non(ESTVIDE(G22:G38)😉;"";ConcatPlage(D22😀38;"";", "))

je voudrais SI la cellule est non vide dans la plage G22:G38 alors ...concatener les cellules D22😀38....

concatplage marche bien chez moi...
Pierre4
merci

 

[hoerwind]

Re : si cellule >0 alors copie contenu de cellules (cellules EN COLONNE)

Re,

Comme demandé sous un message précédent, enregistre ton fichier sous XL2003 mets-en un extrait en pièce jointe.

 

[pierre4]

Re : si cellule >0 alors copie contenu de cellules (cellules EN COLONNE)

ci joint fichier...merci🙂

 

[JNP]

Re : si cellule >0 alors copie contenu de cellules (cellules EN COLONNE)

Re 🙂,
Ta fonction est censée détecter la présence de quelque chose avant concaténation, et là, vu que tu cherches un espace, il ne te ramène que les mots multiples 😛...
Essaie

Function ConcatPlage(plage As Range, décalage As Integer, séparateur As String) As String
    Dim rep As String, c As Range
    For Each c In plage
        If c.Value <> "" And c.Offset(0, décalage).Value <> 0 Then
            rep = rep & c.Value & séparateur
        End If
    Next c
    ConcatPlage = Left(rep, Len(rep) - Len(séparateur))
End Function

avec la formule

=ConcatPlage(D4:D27;3;", ")

ça devrait convenir 🙄...
Bon courage 😎

 

[pierre4]

Re : si cellule >0 alors copie contenu de cellules (cellules EN COLONNE)

merci JNP
mais alors, cette fonction personnalisée, comment je la copie,ou?... je ne sais pas faire ou la créer?
merci!