XL 2016 copier cellule vers une autre feuille

[phil77]

bonjour a tous

j ai une feuille avec des données dans les cellules A1 B1 F1 en feuille 1 et je souhaiterais les copier vers
la feuille 2 dans les cellules a10 f4 r2 lorsque j indique oui en G1 de la feuille 1

comment pourrais je bien m y prendre
merci de l aide

 

[phil77]

merci pour le fichier
mais je suis limite a combien d imbrication maximum

 

[nemesia]

Pas de problème il n'y a pas de limite

 

[phil77]

ah bon c est nouveau alors pour 2016 car avec les autres versions d excel il y avait des limites
car je serais confronte a faire 365 imbrications multiplie par 48 plages horaires par jour

 

[nemesia]

ah je ne connais pas trop ^^
pour le coup tu saurait mieux que moi 😉

 

[phil77]

oui oui il y a des limites
ou alors cela a changer

 

[nemesia]

Bonjour
J'ai une question si je fait une macro qui agit en fonction d'un double click et ce double click appose une crois au lieu de noter un oui sa irais ?
Et en suite faire une Macro si il y a double click afficher les cellules sa irais ?

 

[phil77]

bonjour
merci pour la reponse et la solution
pour la premiere partie oui ok
par contre pas compris cela
Et en suite faire une Macro si il y a double click afficher les cellules sa irais ?

 

[nemesia]

en gros en fonction du double click qui appose la croix sa lance une macro qui vérifie si il y a une croix et fait l'action de copier les cellule en fonction

 

[job75]

Bonjour phil77, nemesia,

Au post #15 il n'y a pas besoin d'imbrications pour récupérer le nom.

Avec cette formule le 1er "oui" de la colonne G est traité :

=SIERREUR(INDEX(Feuil1!B:B;EQUIV("oui";Feuil1!G:G;0));"")

Avec celle-ci c'est le dernier "oui" de la colonne G qui est traité :

=SIERREUR(INDEX(Feuil1!B:B;EQUIV("oui";Feuil1!G:G));"")

à condition qu'il n'y ait que des "oui" dans la colonne.

A+

 

[nemesia]

Bonjour job75,

Bien vu c'est vrai la formule appliquer est beaucoup plus subtile et rapide 🙂 et oh lieu de taper les oui tu peut faire sa en le mettant dans le vba de la feuille en question

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect([G], Target) Is Nothing Then Target.Value = IIf(Target.Value = "", "oui", "")
Cancel = True

End Sub
sa permet de mettre des oui juste en double cliquant sur la cellule et si tu veut mettre plus de colonne suffit de rajouter après "([G;M], Target "c'est un exemple tu peut en imbriquer pas de limite de colonne suffit juste de rajouter le nom de la colonne en question

 

[phil77]

bonjour job75 , memesia
merci pour l astuce su sierreur mais malheureusement il n y aura pas que des oui dans la colonne G
j essaye la deuxième solution de memesia

 

[phil77]

voila j ai essaye en mettant ce code dans ThisWorkbook
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect([G], Target) Is Nothing Then Target.Value = IIf(Target.Value = "", "oui", "")
Cancel = True

End Sub

mais je n ai aucun résultat quand je mets oui

 

[nemesia]

Non ça ce met juste dans la feuille 1 dans le vba et sa permet juste de mettre auto le oui en double cliquant

 

[nemesia]

attend je t'est préparer un truc essaye sa et sa devrait marcher

 

[nemesia]

sa utilise ma solution et la sienne et tu peut mettre ce que tu veut la ou y a pas oui sa n'empêchera pas de marcher et pour mettre t oui au lieu de les taper ta juste a double click sur la cellule concerner