Masquer ligne sous condition Résolu

Question

Bonjour, pourriez vous me dire la formule de macro pour masquer une ligne sous condition svp merci

Je vous explique : Je voudrais que la ligne 11 reste afficher pour marquer la raison social quand il y a marqué " Pro " en D5 mais par contre si je marque perso en D5 je voudrais masquer la ligne 11.

Si vous pouvez me donner la formule merci beaucoup

Macintosh / Opera 102.0.0.0

Mike-31 · Answer

Bonjour,

code a saisir dans les propriétés de ton onglet

Private Sub Worksheet_Change(ByVal Target As Range)
If [D5] = "Pro" Then Rows("11:11").EntireRow.Hidden = False Else Rows("11:11").EntireRow.Hidden = True
End Sub

perlox34 · Answer

Merci mais je n'arrive pas a l'appliquer, après je suis pas un expert .. aha

Comment l'appliquer ?

Mike-31 · Answer

Re,

récupère le fichier exemple, pour voir le code, clic droit sur l'onglet concerné/Visualiser le code

https://www.cjoint.com/c/MJppLLYtA5F

perlox34 · Answer

Ok merci ça j'ai réussi a le faire.

En faite j'ai étais dans l'onglet " développeur " " j'ai cliquer sur " visual basic " j'ai inséré un module dans la feuil correspondant, j'ai coller le code. Et j'ai fermer.

Après j'ai étais dans " Macro " mais rien n'apparait alors que sur votre fichier quand je vais a macro il me propose " Macro 3 ".

Comment enregistrer cette macro ? Merci

Mike-31 · Answer

Re,

Si tu veux que l'action soit liée au contenu ou au changement du contenu d'une cellule, le code doit se trouver dans les propriétés de l'onglet concerné.

si tu testes mon exemple tu remarqueras que le contenu de la cellule D5 conditionne directement le code qui affiche ou masque la ligne 11

perlox34 · Answer

Je suis nul j'ai rien compris ????

Je voudrais copier cette formule dans mon fichier original.

Je voudrais juste que le code sois en correspondant avec la macro qui je peux exucuté dans le feuille mais je ne sais pas comment crée cette macro associé a ce code.

Mike-31 · Answer

Re,

et bien tu ouvres ton fichier, tu actives l'onglet concerné, clic droit sur l'onglet/Visualiser le code ou plus directement Alt et touche F11 et tu colles ce code

Private Sub Worksheet_Change(ByVal Target As Range)
If [D5] = "Pro" Then Range("11:11").EntireRow.Hidden = False Else Range("11:11").EntireRow.Hidden = True
End Sub

perlox34 · Answer

C'est ce que j'ai fais je fais visualiser le code, ça m'ouvre Visual Basic Je colle ce code et apres ? Je fais comment pour exécuter cette macro ?

Mike-31 · Answer

Re,

il te suffit de saisir dans la cellule D5 de l'onglet concerné le mot Pro et la ligne 11 se masquera tu effaces ou tu saisis un autre mot la ligne 11 s'affiche automatiquement

perlox34 · Answer

Ok merci j'ai réussi par contre chelou elle reviens pas quand je supprime ou je change le contenu de la cellule ..

Si jamais on veux faire ligne de 11 a 14 on mets ("11:14") ?

Mike-31 · Answer

Re,

si tu saisis Pro en D5 la ligne s'affiche sinon elle disparait mais attention Pro avec la première lettre majuscule pro est différent.

Par contre si tu veux que ça fonctionne avec Pro ou pro il faut modifier le code

pour que le code s'applique sur les ligne de 11 à 14 tu as compris c'est "11:14"

perlox34 · Answer

En faite peut importe le mot que je mets dans la cellule elle s'enleve mais ne reviens en aucun cas

Mike-31 · Answer

Re,

a oui sur mon fichier, mais voilà avec la correction et qui prendra Pro ou pro

https://www.cjoint.com/c/MJpqYnfY7tF

perlox34 · Answer

Ca me rend fou sur ton fichier ca marche a merveille et quand je fais copier/coller le code sur mon original ca marche pas. N'importe qu'elle mot que je rentre dans la cellule ça enleve les lignes et après ca reviens pas c'est bizarre, t'es sur tu fais pas autre chose a parts que de copier coller ?

Mike-31 · Answer

Re,

ah non, rien de plus mais qu'as tu en cellule D5, si ton fichier n'est pas confidentiel tu peux le poster dans une prochaine réponse à partir de ce lien

https://www.cjoint.com/

perlox34 · Answer

J'ai une liste deroulante avec pro ou particulier

Mike-31 · Answer

et bien voilà la réponse, donc si tu sélectionnes pro tout en minuscule les lignes s'affichent et avec particulier ou rien elles se masquent mais tu ne peux saisir un autre mot que les deux définis dans la validation.

contrôle dans la programmation de la validation de donnée ne se trouve pas un espace avant ou après un mot

dans source tu dois avoir

pro;particulier

perlox34 · Answer

J'ai compris cela fonctionne quand j'enleve ma liste deroulante et que je tape le mot manuellement. Mais ca ne fonctionne pas avec les mots de liste déroulante.

Comment regler le probleme ?

Mike-31 · Answer

Re,

je t'ai répondu sur le post précédent, clic sur la cellule D5, puis Données/Validation des données/dans Autoriser sélectionner Liste/et dans Source saisir sans espace pro;particulier et Ok

c'est tout, il n'y a rien d'autre à faire

perlox34 · Answer

Parfait c'est cela qui poser probleme, c'est résolu merci à toi en tous cas !

Une deuxieme probleme :

je voudrais copier la ligne d'un tableau de la " feuille 1 " dans le tableau de la " feuille 2 " sous une certaine condition.

Je voudrais que ça copie la ligne que si je mets un " oui " dans la colonne " suivis " de la feuille 1 si je mets rien je ne veux pas que ça me copie.

pouvez vous me dire le code vba que je le fasse moi même afin de comprendre merci

Mike-31 · Answer

Re,

pour terminer ta demande précédente et que tu comprennes, si par exemple tu voulais que le code s'applique à des lignes dis contiguës, exemple lignes de 11 à 12 et de 15 à 17 le code serait

Private Sub Worksheet_Change(ByVal Target As Range)
If [D5] = "Pro" Or [D5] = "pro" Then Range("11:12,15:17").EntireRow.Hidden = False Else Range("11:12,15:17").EntireRow.Hidden = True
End Sub

Pour ta dernière demande, il faut être plus précis, le VBA est strict et ne tolère aucune erreur, colonne suivi quel est son index H, I, J, K  ?

perso je rajouterais une colonne Contrôle pour éviter de copier plusieurs fois une ligne,

et colonne suivi comment est saisi OUI ou qui a t'il d'autre comme mot possible ?

et es ce que ta dernière demande concerne le même onglet que la demande initiale

perlox34 · Answer

D’accord merci j’ai bien compris le code nickel !

pour la nouvelle feuille je t’ai créé un lien ou il y a le fichier Excel pour que tu vois mieux les cellules tout ça.

https://www.cjoint.com/c/MJpsAosPUKs

Mike-31 · Answer

Re,

on est bien d'accord, c'est un fichier différent qui n'a rien à voir avec la première demande ?

ensuite est il possible d'harmoniser les deux onglets afin d'avoir les deux tableaux qui commencent à la même colonne et ligne ? dans ton exemple un tableau commence cellule C10 et l'autre D12 ?

perlox34 · Answer

Oui ça a rien avoir avec la première demande. 
La c’est la demande pour copier dans l’autre tableau avec un oui.

oui c’est un exemple vous pouvez modifier

Mike-31 · Answer

Re,

ok, j'habite le pays du rugby et ce soir c'est grand écran.

perlox34 · Answer

De 1 point ... :'(

Mike-31 · Answer

Re,

récupère ton fichier, j'ai créé une mise en forme conditionnelle pour coloriser une ligne sur deux sur chaque onglet pour éviter d'avoir un mélange anarchique des couleurs Feuil2 après le transfert des données.

je t'ai annoté chaque ligne du code pour que tu le suives et le reproduises, l'annotation apparait en vert après une série de pointillés.

Le déclenchement se fait à partir de la saisie OUI colonne  onglet Feuil1

https://www.cjoint.com/c/MJpvjNCMhvF

perlox34 · Answer

Cool merci à toi tu pourrais juste rajouter un code pour que quand je supprime le OUI ca me supprime la ligne copié merci

Et c'est possible d'enlever la mise en forme conditionnel ? Car dans le 2eme tableau j'aurais mes lignes colorier a ma facon merci

perlox34 · Answer

Sinon aurait-tu pas une formule plutot qu'une macro ? Merci

Mike-31 · Answer

Re,

Voilà uniquement par formules,

pour protéger les formules complexes Feuil2, je te conseille de protéger cette feuille

https://www.cjoint.com/c/MJqmeTaVllF

perlox34 · Answer

﻿D'accord merci c'est super cool merci beaucoup. Tu peux juste m'expliquer la formule ?

﻿C'est pour que je la copie sur mon fichier original dans mon tableau.

Mike-31 · Answer

Voilà

dans l'exemple, la formule s'applique pour la plage $B$5:$B$15 de l'onglet Feuil1 (à adapter)

En fait il s'agit à la base d'une formule basique  INDEX(Feuil1!$B$5:$B$15;position dans la liste), colonne C cette partie de formule sera modifié en Feuil1!$C$5:$C$15 etc.

pour définir la position on aurait pu utiliser la fonction EQUIV("CLIENT  ";Feuil1!$B$5:$B$15;0) qui aurait renvoyé la position de la première occurrence rencontré  soit 1

le problème est que le test doit se faire sur la colonne K sur le critère "OUI" et il peut y en a plusieurs, donc on va les lister

en utilisant une des dernière syntaxe créé par Microsoft AGREGAT qui va faire abstraction des lignes en erreur. Cette syntaxe peut être utilisée dans de nombreux cas je t'invite à regarder des tutos sur Google

cette partie de formule de la première ligne va retourner 1 si le premier "OUI" est sur la première ligne ou 3 si le premier "OUI" se trouvait sur la troisième ligne

AGREGAT(15;6;LIGNE(Feuil1!$K$5:$K$15)-LIGNE(Feuil1!$K$5)+1/(Feuil1!$B$5:$K$15="oui");LIGNE(1:1))

la formule AGREGAT se termine par LIGNE(1:1) ce qui renvoi 1 et renseigne la syntaxe de la première occurrence "OUI" trouvée

la formule incrémentée sur la deuxième ligne LIGNE(1:1) devient LIGNE(2:2) pour rechercher la deuxième occurrence etc

ce qui donne comme formule

INDEX(Feuil1!$B$5:$B$15;AGREGAT(15;6;LIGNE(Feuil1!$K$5:$K$15)-LIGNE(Feuil1!$K$5)+1/(Feuil1!$B$5:$K$15="oui");LIGNE(1:1)))

pour terminer la formule est encadrée d'une gestion d'erreur

=SIERREUR( la formule ;"") ce qui renverra rien ou vide dans le cas d'erreur rencontrée par la formule ou le résultat de la formule

Avec les versions d'Excel plus anciennes on aurait fait une formule matricielle plus complexe et gourmande en ressource ce qui ralentirait le système

perlox34 · Answer

Je suis désole mais j'ai du mal a l'appliquer ..

﻿Il y a juste un petit truc a changer, je vois que dans ta formule c'est par exemple de B5 a K15 et de K5 a K15, mais moi je voudrais dire a la formule que c'est dans toute les lignes du tableau et dans toute ma colonne de mon tableau.

﻿Car dans ma feuil1 je vais inserer des lignes a mon tableau de temps en temps et je voudrais bien sur que la formule reprenne les nouvelles ligne de mon tableau es ce possible ? ﻿

﻿Je t'ai mis sur le lien le fichier avec les 2 tableau de crée. Merci

https://www.cjoint.com/c/MJrl0DWbpRZ

Mike-31 · Answer

Re,

Déjà la formule avec LIGNE(1:1) est sur la ligne n°5 alors qu'elle devrait se trouver sur la ligne n°2 ce qui fait que les formules incrémentées vers le haut son en erreur LIGNE(#REF!) alors que tu devrais avoir LIGNE(1:1) ligne 2 LIGNE(2:2) ligne 3 etc ...

ensuite mon contrôle se fait de la ligne 5 à 15, il te suffisait de modifier 15 en 40 pour avoir Feuil1!$B$5:$B$40 et idem pour K15 en K40

en ce qui concerne l'adaptation automatique à l'évolution de ton tableau, bien sur c'est possible ce qui compliquera le formule, je pense qu'a ton niveau le plus simple serait de travailler avec des plages nommées, exemple pour Feuil1!$B$5:$B$15 si tu nommes cette plage List_b,  List_c pour la colonne C etc ... pour Feuil1!$K$5:$K$15 List_K et pour Feuil1!$B$5:$K$1 nommé Tablo

la formule deviendrait

=SIERREUR(INDEX(List_b;AGREGAT(15;6;LIGNE(List_k)-LIGNE(Feuil1!$K$5)+1/(Tablo="oui");LIGNE(1:1)));"")

et tu n'aurais que le plages nommées à modifier.

Ce soir je te ferais une formule avec adaptation automatique à l'évolution du tableau mais je crains que tu t'y perde

perlox34 · Answer

Ok merci t'a reçu mon message en privé ?

Mike-31 · Answer

Re,

Le forum est un lieu de partage du savoir, les réponses techniques doivent se faire en clair pour permettre à des demandes similaires de s'en inspirer.

J'ai renommé les onglets mais tu peux laisser les noms Feuil1, Feuil2 etc ...

Le plus simple est de travailler avec les plages nommées, exemple l'onglet que j'ai nommé Liste

j'ai sélectionné la matrice matrice B5:K40 que j'ai nommé Tablo

puis dans chaque colonne, B5:B40 nommée List_b

puis la C5:C40 nommée List_c puis D5:D40 nommée List_d etc ...

onglet que j'ai renommé Formule en cellule B5 j'ai adapté la formule qui avec les plage nommées est devenue

=SIERREUR(INDEX(List_b;AGREGAT(15;6;LIGNE(List_k)-LIGNE(Liste!$K$5)+1/(Tablo="oui");LIGNE(1:1)));"")

ensuite j'ai incrémenté vers la droite cette formule jusqu'à la cellule K5

puis en C5 il faut modifier juste List_b  en List_c =SIERREUR(INDEX(List_c;AGREGAT

puis en D5 List_d ainsi de suite juqu'à K5 qui sera List_k

ensuite sélectionner la plage B5:K5 et incrémenter vers le bas dans l'exemple jusqu'à la ligne 40

Ton tableau onglet Liste est certainement appelé à grandir, il suffit simplement d'ajouter des lignes avant la dernière ligne du tableau dans l'exemple avant la ligne 40 soit entre la ligne 5 et la ligne 40 et toutes les plages nommées ainsi que les formules s'actualiseront automatiquement.

En ce qui concerne l'agrandissement du tableau onglet que j'ai renommé Formule comme pour l'onglet précédent,

déprotéger la feuille

ajouter des lignes avant la dernière ligne du tableau dans l'exemple  avant la ligne 40 soit entre la ligne 5 et la ligne 40

pour insérer les formules dans les nouvelles lignes, il suffit de sélectionner une ligne contenant les formules exemple B10:K10 même si elle affiche déjà des données et l'incrémenter vers le bas jusqu'à la fin du tableau, même si des lignes affichaient des données elles se remettront automatiquement en bonne place

reprotéger la feuille pour protéger les formules

Si tu renommes les onglets les plages nommées ainsi que les formules s'actualiseront également automatiquement.

https://www.cjoint.com/c/MJst7X8X4kF

perlox34 · Answer

Parfait c'est génial merci à toi !

J'ai pas eu à renommer les matrices car j'ai crée un tableau avec des en-tête et ça marche a merveille surtout que ça s'actualise en grandisant mon tableau car j'ai mis " [#Tout] " dans ma formule, c'est nickel donc voici ma formule final :

=SIERREUR(INDEX(Tableau2[PRENOM];AGREGAT(15;6;LIGNE(Tableau2[[#Tout];[SUIVIS]])-LIGNE('FICHIER '!$I$7)+1/(Tableau2[#Tout]="oui");LIGNE(4:4)));"")

https://www.cjoint.com/c/MJte0N58ZgN

Par contre je copie/colle sans comprendre mdr

Je pense avoir presque tout captez dans la formule sauf : LIGNE(Tableau2[[#Tout];[SUIVIS]])-LIGNE('FICHIER '!$I$7)+1

La ce que je comprends c'est qu'on va chercher les lignes de tous mon tableau dans la colonne suivis donc la dans l'occurence c'est de la ligne 6 a 15 c'est bien ça ?

Mais apres je comprends pas -LIGNE('FICHIER '!$I$7)+1 ? Merci

Mike-31 · Answer

Re,

ta formule onglet SUIVIS cellule C7 est:

=SIERREUR(INDEX(Tableau2[CLIENT PROSPECT];AGREGAT(15;6;LIGNE(Tableau2[SUIVIS])-LIGNE('FICHIER '!$I$7)+1/(Tableau2="oui");LIGNE(1:1)));"")

ensuite il te suffit d'incrémenter cette cellule vers la droite jusqu'à la cellule H7 puis sélectionner la plage C7:H7 et l'incrémenter vers le bas jusqu'à la fin de ton tableau.

Il faut que tu apprennes à tester tes formules ou partie de formule, exemple, lorsque tu clique sur la cellule C7, il apparait dans ta barre des formules la formule affectée à cette cellule, si tu sélectionnes une partie valide de ta formule, exemple cette partie en gras et tu clic sur la touche F9

=SIERREUR(INDEX(Tableau2[CLIENT PROSPECT];AGREGAT(15;6;LIGNE(Tableau2[SUIVIS])-LIGNE('FICHIER '!$I$7)+1/(Tableau2="oui");LIGNE(1:1)));"")

il s'affichera ce que cette partie renvie, soit l'index ligne concerné de 7 à 18 {7;8;9;10;11;12;13;14;15;16;17;18}

il est impératif  après chaque test de sortir de cette procédure en cliquant sur la touche Echap

si maintenant tu veux tester cette partie en gras

=SIERREUR(INDEX(Tableau2[CLIENT PROSPECT];AGREGAT(15;6;LIGNE(Tableau2[SUIVIS])-LIGNE('FICHIER '!$I$7)+1/(Tableau2="oui");LIGNE(1:1)));"")

la formule renvie {8}

Tu va te demander pourquoi 8 et bien tout simplement pour ne pas afficher deux fois le même résultat que la ligne précédente

et ainsi de suite pour chaque partie qui compose la formule.

Une autre astuce, dans ton cas pour ne pas afficher les valeurs 0 parce des cellules de ta matrice sont vides, sélectionne ton tableau onglet SUIVIS, Clic droit sur la sélection/Format de cellule/Nombre/Personnalisée/dans Type colle Standard;; ou 0;;

perlox34 · Answer

Merci à toi ! T'explique vraiment bien merci !

Tu dis de cliquer sur la touche F9 mais je suis sur un mac et la touche F9 ne marche pas sur mac.

Mike-31 · Answer

Re,

sur Mac je ne sais pas, et n'ai pas de Mac sous la main. Tu peux essayer d'écrire dans une cellule =LIGNE(A1:A10) tu sélectionnes LIGNE(A1:A10) et tu joues avec les touches de fonction F dans la barre des formules devrait s'afficher ceci{1;2;3;4;5;6;7;8;9;10} je chercherai de mon côté et reviendrais sur le sujet

Pour ton fichier regarde s'il répond à tes attentes

https://www.cjoint.com/c/MJtujPzbAFF

perlox34 · Answer

Je vais regarder de mon côté merci.

Oui c'est exactement ça merci comment t'a fais ? Que je le copie sur mon fichier original aha

Mike-31 · Answer

Re,

J'ai sélectionné le tableau onglet Suivis C6:H12, ce qui active l'onglet Création sur le ruban/Style de tableau/j'ai sélectionné le premier style Clair ensuite j'ai colorisé les entêtes en noir police blanche etc ...

ensuite j'ai incrémenté la première ligne des formules jusqu'à la ligne 50

j'ai coloriser toutes les lignes en bleu, de sorte à ne voir que les entêtes en noir, ensuite j'ai créé deux mises en forme conditionnelles, Accueil/Mise en forme conditionnelle pour coloriser en gris les lignes impairs et en blanc les lignes pairs et les bordures des cellules

Mike-31 · Answer

Re,

Tu peux me dire pourquoi le tableau Liste Client et tableau Suivis ont des structures différentes, dans le tableau Suivis tu ignores les colonnes N°, CLIENT PROSPECT et PARTICULIER cela n'est pas un problème,

mais sur l'onglet SUIVIS tu as nom prénom, adresse puis 7 colonnes numérotées de 3 à 9

Ensuite il faut faire attention lorsque tu nommes des plages ou onglets, de bien reproduire l'orthographe employé ou ne pas rajouter des espaces, tes sources d'erreurs étaient là.

que veux tu faire avec le bouton OK onglet Formulaire, le code est mal écrit

https://www.cjoint.com/c/MJxuIMgkz7F

Mike-31 · Answer

Re,

Comme je te l'ai déjà dit, les messages privés doivent rester exceptionnels, pour te répondre la colonne contrôle devient nécessaire sur l'onglet de transfert surtout après ta dernière demande dont la ligne doit s'effacer si on supprime "OUI" sur le premier fichier et pour effacer la bonne ligne le contrôle Copié est devenu date et heure

https://www.cjoint.com/c/MJyl1nYh41F

et pourquoi ne pas utiliser un fichier sans macro

https://www.cjoint.com/c/MJymSLRMptF

perlox34 · Answer

Psk je ne peux pas utiliser de formule pour ce que je veux faire finalement il me faut une macro.

Super ta macro, par contre au lieu de copier la ligne entiere, comment faire pour copier que certaines cellule ? Je voudrais copier que (Nom, Prénom, Adresse. ) Merci

Mike-31 · Answer

Re,

comme ça par contre sans la colonne contrôle difficile de supprimer la ligne onglet suivis en fonction de l'effacement OUI onglet liste surtout si à l'usage tu peut avoir plusieurs noms identique dans ton fichier

https://www.cjoint.com/c/MJyqxOkzN7F

perlox34 · Answer

Je pense ce sera un des derniers test.

https://www.cjoint.com/c/MJzftSsKEYt

J'aimerai plutot copier ( NOM, ADRESSE, CP, VILLES ).

Ducoup dans mon tableau " liste " je voudrais copier le ligne 5 a la ligne 2 du tableau " machine " si " oui " biensur

E5 en E2 de l'onglet " machine "

G5 en H2 de l'onglet " machine "

I5 en I2 de l'onglet " machine "

J5 en J2 de l'onglet " machine "

Merci encore, et bien sur supprimer la ligne si on supprime le " oui ".

Mike-31 · Answer

Re,

alors comme cela

https://www.cjoint.com/c/MJzh0MzcwjF

perlox34 · Answer

D’accord merci peux-tu me copier le code pour je puisse le copier sur l’original stp merci

et me dire ce qui faut modifier pour copier et coller une autre colonne car peut être que je voudrais copier une autre colonne à l’avenir

merci de ton aide

Mike-31 · Answer

Re,

pour voir le code, clic droit sur l'onglet Liste ou Alt et touche de fonction F11 et tu remarqueras ces lignes

Target.Offset(0, -6).Copy Destination:=Sheets("Machine").Range("E65536").End(xlUp)(2, 1)
    Target.Offset(0, -4).Copy Destination:=Sheets("Machine").Range("H65536").End(xlUp)(2, 1)
    Target.Offset(0, -2).Copy Destination:=Sheets("Machine").Range("I65536").End(xlUp)(2, 1)
    Target.Offset(0, -1).Copy Destination:=Sheets("Machine").Range("J65536").End(xlUp)(2, 1)

en fait chaque cellule copiée est sélectionnée à partir de la cellule qui change colonne K (Suivis)

exemple pour la première ligne du code, à partir d'une cellule colonne K on décale la sélection de -6 cellules vers la gauche que l'on Copy dans l'onglet "Machine" dans la première cellule colonne E trouvée Range("E65536").End(xlUp)(2, 1)Target.Offset(0, -6).Copy Destination:=Sheets("Machine").Range("E65536").End(xlUp)(2, 1)

et ainsi de suite parce que les cellules à copier ne sont pas contiguës

perlox34 · Answer

Ok cool super merci j'ai vue que la colonne L de la feuil1 ou il y a marqué controle ne sert plus a rien c'est ça, je peux la supprimer ?

Sinon le E65536 correspont a jusqu'a la ligne 65536 ? Merci

Mike-31 · Answer

Re,

la colonne Contrôle ne sert plus à rien,

E65536 veut dire à Excel qu'à partir de cette cellule

.End(xlUp) Excel va rechercher la première cellule non vide de la colonne E en remontant

(2, 1) ou Offset(1,0) à partir de la première cellule non vide trouvée par Excel on descend d'une cellule dans la même colonne pour se positionner sur la première cellule vide

perlox34 · Answer

Voici ton code actuelle : Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Controle As Variant, Adresse As String On Error GoTo fin If Target.Column <> 11 Then Exit Sub If Target = "OUI" Or Target = "oui" And Target.Offset(0, 1) = "" Then Target.Offset(0, -6).Copy Destination:=Sheets("Machine").Range("E65536").End(xlUp)(2, 1) Target.Offset(0, -4).Copy Destination:=Sheets("Machine").Range("H65536").End(xlUp)(2, 1) Target.Offset(0, -2).Copy Destination:=Sheets("Machine").Range("I65536").End(xlUp)(2, 1) Target.Offset(0, -1).Copy Destination:=Sheets("Machine").Range("J65536").End(xlUp)(2, 1) Exit Sub fin: End If If Target = "" Then Controle = Target.Offset(0, 1) Target.Offset(0, 1) = "" With Sheets("Machine") On Error GoTo erreur Adresse = .Columns("L").Find(Controle).Address .Range(Adresse).EntireRow.Delete End With Exit Sub End If End Sub Dans mon fichier officiel, j'ai le " oui " dans la colonne P donc colonne n°16 Je dois copier : - La colonne E donc colonne n°5 - La colonne I donc la colonne n°9 - La colonne J donc la colonne n°10 - La colonne K donc la colonne n°11 Et je voudrais copier : - La colonne E dans l'onglet " SUIVIS " a la colonne F - La colonne I dans l'onglet " SUIVIS " a la colonne I - La colonne J dans l'onglet " SUIVIS " a la colonne J - La colonne K dans l'onglet " SUIVIS " a la colonne K En laissant de nouveau ton code ci-dessous j'ai juste rajouter en gras à côté les valeurs que je dois remplacer. Es-ce juste ? Car ca ne marche pas sur mon fichier original. Exemple : - Le 16 je dois le mettre a la place du 11 - Le -11 a la place du -6 - Le F a la place du E - Le -7 a la place du -4 - Le I a la place du H - Le -6 a la place du -2 - Le J a la place du I - Le -5 a la place du -1 - Le K a la place du J - Le suivis a la place de machine Il manque autre chose avec tous ce que je t'ai dis ? Ou peut etre des choses a supprimer ? Merci à toi Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Controle As Variant, Adresse As String On Error GoTo fin If Target.Column <> 11 16 Then Exit Sub If Target = "OUI" Or Target = "oui" And Target.Offset(0, 1) = "" Then Target.Offset(0, -6 -11 ).Copy Destination:=Sheets("Machine").Range("FE65536").End(xlUp)(2, 1) Target.Offset(0, -4 -7 ).Copy Destination:=Sheets("Machine").Range("IH65536").End(xlUp)(2, 1) Target.Offset(0, -2 -6 ).Copy Destination:=Sheets("Machine").Range("JI65536").End(xlUp)(2, 1) Target.Offset(0, -1 -5 ).Copy Destination:=Sheets("Machine").Range("KJ65536").End(xlUp)(2, 1) Exit Sub fin: End If If Target = "" Then Controle = Target.Offset(0, 1) Target.Offset(0, 1) = "" With Sheets("SUIVISMachine") On Error GoTo erreur Adresse = .Columns("L").Find(Controle).Address .Range(Adresse).EntireRow.Delete End With Exit Sub End If End Sub

Mike-31 · Answer

Re,

oui c'est ça, revoie également les mise en formes conditionnelles

https://www.cjoint.com/c/MJzt0Z0XGIF

perlox34 · Answer

C’est à dire renvoie également les mises en formes conditionnel ?

et puis :

On Error GoTo erreur

Adresse = .Columns("L").Find(Controle).Address

.Range(Adresse).EntireRow.Delete

ça je le laisse ? Vu que j’ai plus la colonne L de contrôle

Mike-31 · Answer

non c'est "P"

perlox34 · Answer

Pas compris

perlox34 · Answer

Ca me mets cette erreur

Mike-31 · Answer

Re,

certainement parce que tu effaces plusieurs cellules en même temps onglet Liste colonne P

Perlox34 · Answer

Ok mais je comprends pas .. quand je copie le code ça ne marche pas .. ça copie sur les mauvaises ligne et ça ne s’efface pas quand j’efface le oui

Mike-31 · Answer

re,

Contrôle que tu es sur les bonnes colonnes par rapport au fichier exemple que les noms des onglets correspondent exactement au nom dans le code

https://www.cjoint.com/c/MJAhQ6tVZrF

perlox34 · Answer

Mais c’est obligé de crée une mise en forme conditionnel ?

Mike-31 · Answer

Non, c'est juste pour différencier chaque ligne

perlox34 · Answer

Ok j'ai réussi c'est bon juste un petit probleme sur la suppression

Regarde ton fichier, en faite on sais fais avoir car on avais mis le même nom.

Mais si par exemple je mets :

- Le contact 1 en " oui " ça copie bien

- Le contact 2 en " oui " ça copie bien

- Le contact 3 en " oui " ça copie bien

- Le contact 4 en " oui " ça copie bien

Mais dès que je supprime un " oui " peut importe la ligne ça me supprime le contact 1 car c'est le premier " oui ".

En suite peut importe la ligne ou je supprime " oui " ça me supprime le contact 2 car c'est le deuxième " oui ".

Exemple : J'ai supprimer le " oui " du contact 4 donc je veux que ça me supprime la ligne du contact 4 mais non ça me supprime la ligne du contact 1.

En suite j'ai fais un autre test en supprimant le " oui " du contact 3 donc je veux que ça me supprime la ligne du contact 3 mais non ça me supprime la ligne du contact 2.

Merci de voir ce que tu peux faire merci

Le Pingou · Answer

Bonjour,

Petite intrusion car je n'ai pas de retour concernant ceci: que j'avais posté sur l'autre poste fermé.....https://forums.commentcamarche.net/forum/affich-37928136-copier-ligne-tableau-dans-une-autre-feuille-sous-condition#dernier

Bonjour,

Dans se cas voici un exemple que vous pouvez adapter à vos besoins.

Le fichier : https://www.cjoint.com/c/MJyqFFUvNvZ

Mike-31 · Answer

Re,

A force de modifier le code une ligne avait été effacée remplace par ce code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Controle As Variant, Adresse As String
On Error GoTo fin ' ---------------------------------------- gere les erreurs
    If Target.Column <> 16 Then Exit Sub ' ----------------- limite le declenchement ˆ la colonne 11 soit K
    If Target = "OUI" Or Target = "oui" Then ' ------------- condition de declenchement
    Target.Offset(0, -11).Copy Destination:=Sheets("Machine").Range("F65536").End(xlUp)(2, 1)
    Target.Offset(0, -7).Copy Destination:=Sheets("Machine").Range("I65536").End(xlUp)(2, 1)
    Target.Offset(0, -6).Copy Destination:=Sheets("Machine").Range("J65536").End(xlUp)(2, 1)
    Target.Offset(0, -5).Copy Destination:=Sheets("Machine").Range("K65536").End(xlUp)(2, 1)
    Exit Sub ' --------------------------------------------- si erreur sort de la  procedure
fin: ' ----------------------------------------------------- si erreur arrte la procedure
    End If ' ----------------------------------------------- fin de la procedure
    
    If Target = "" Then ' ---------------------------------- teste la cellule active
    Controle = Target.Offset(0, -11).Value
    With Sheets("Machine")
    On Error GoTo erreur
    Adresse = .Columns("F").Find(Controle).Address ' ------- recherche la valeur du controle efface
        .Range(Adresse).EntireRow.Delete ' ----------------- supprime la ligne
    End With
    Exit Sub ' --------------------------------------------- sort de la procedure
erreur:
    End If
End Sub

perlox34 · Answer

Ok je pense qu'on ai bon aha juste pouvez vous m'expliquer les code que si a l'avenir je décide de changer que je comprenne.

Si jamais je dois changer de nom d'onglet, ça je sais que je dois modifier toute les mots " machine " en mon nouveau nom " d'onglet "

Si je change la colonne ou il y aura marquer le " oui " je sais qu'il faut que je modifie :  If Target.Column <> 16 ( que je modifie le chiffre 16 par mon nouveau numéro de colonne. Ex colonne C n°3 etc ...

Ensuite cette formule : Target.Offset(0, -11).Copy Destination:=Sheets("Machine").Range("F65536").End(xlUp)(2, 1)

J'ai bien compris que le -11 signifie que ça copie la 11ème cellule en allant vers la gauche de ma celulle n°16. donc la en l'occurence ça devrais me copier les celulles de ma colonne " E " donc ma colonne n° 5.

Mais imaginons que mon " oui " est en colonne " A " donc en colonne n°1 et je veux copier la colonne A et D

Pour la D je mets (0,+3) ? et pour la A je mets quoi ? (0,0) ?

Ensuite pour ce code :

Range("F65536")  Je comprends que je copie dans la colonne F mais que veux dire F65536 ? Ca va me copier jusqu'a la ligne 65536 ? Ou ca va me copier jusqu'a des lignes infinis ? Ou c'est juste le code pour que comprenne que ça dois copier en F ?

Ensuite pour ce bout de formule :

Controle = Target.Offset(0, -11).Value Pourquoi (0, -11) ?

Et pour finir ce code : Adresse = .Columns("F").Find(Controle).Address ' ------- recherche la valeur du controle efface

Pourquoi " F " ?

perlox34 · Answer

@Le Pingou merci de ton aide. Mais non ce n'est pas vraiment ça que j'ai besoin.

Car votre fichier coupe la ligne pour la copier dans un autre onglet.

Moi je voudrais garder la ligne tout en la copiant dans un autre onglet à l'aide d'un " oui ".

Mais Mike-31 m'a bien aider sur ce sujet et on a réussi a trouver un bon code.

Merci en tous cas de votre aide.

Bonne soirée.

Mike-31 · Answer

Re,

Target est la cellule dans laquelle on est intervenu

If Target.Column <> 16 EXIT SUB dans ton cas la colonne pilote est la 16 éme soit P ce qui veut dire si une action est menée dans une autre colonne on sort de la procédure

Target.Offset(0, -11) donc à partir de la cellule dans laquelle ont est intervenue on se déplace vers la gauche de -11colonnes, si ont voulait se déplacer vers la droite de 11 colonnes Target.Offset(0, 11)

Sheets("Machine") pour identifier un onglet dans le code  Sheets c'est feuille et entre guillemets le nom de l'onglet concerné

Range("F65536") je sélectionne la cellule F65536 qui était dans les anciennes versions d'Excel la dernière cellule de la colonne

.End(xlUp) précédé de l'identification d'une cellule demande à Excel de remonter jusqu'à la première cellule non vide trouvée

Controle = Target.Offset(0, -11).Value Controle est une variable que j'ai nommée comme cela et qui va mémoriser le contenu de la cellule -11 à partir de la cellule cible a cet instant du déroulement du code

Adresse = .Columns("F").Find(Controle).Address Adresse est également une variable que j'ai nommé .Columns("F") colonne de recherche  Find(Controle).Address (Controle).Address recherche la valeur mémorisée dans la variable Controle et address est l'adresse de la cellule défini par le code

Mais pour aller plus loin il faudrait te perfectionner

perlox34 · Answer

Je sais qu'il faut que je me perfectionne mais avec mon boulot je n'ai vraiment pas le temps c'est pour ça que je pose pleins de questions ..

Merci en tous cas pour tous ces informations c'est vraiment vraiment cool et ça marche a merveille mais j'aimerai quand même savoir s'il serai possible de modifier quelque reglage aha.

En faite cela fonctionne parfaitement mais il faut que je vienne dans la celulle manuellement et marquer " OUI " pour que ça se copie.

Manuellement pourquoi ? Je m'explique.

Je me suis crée un onglet " formulaire "' et j'ai crée une macro.

Le but c'est que je remplisse ce formulaire et ça me copie automatiquement ce que j'ai rentré dans l'onglet " client ".

En faite ça m'insere une ligne et ça me copie toute les informations dans les cases correspondantes.

Mais en faite si je fais ça, comme c'est un copier/coller avec la macro dans la cellule

ça ne va pas me copier la ligne mais par contre du coup si je viens manuellement ecrire " oui " ça se copie sans probleme.

Serait-il possible de faire quelque chose pour que du moment qu'il y a marqué " oui " dans la cellule ça la copie ? En copiant le mot " oui " biensur.

https://www.cjoint.com/c/MJAqN2jF5CP

Voici le lien tu pourras voir par toi même l'onglet formulaire.

Mais c'est un autre fichier celui la il y a pas la macro mais t'a compris le délire.

Je veux juste savoir quel code rajouter pour que même si je copie un mot dans la cellule déclenchement ça me copie la ligne

Je sais pas si je me suis fais bien comprendre.

En tous cas merci pour ces informations

Et aussi est il possible d'enregistrer un excel en 2 format en même temps ?

Genre en xlsm et xlsx

Que j'ai 2 fichier qui s'enregistre en même temps merci

Mike-31 · Answer

Re,

tout est possible mais bonjour le code, par contre je n'ai pas tout compris, dans la colonne de déclenchement P tu veux déclencher quelque soit le mot saisi, c'est cela ?

Perlox34 · Answer

Non juste quand " oui " est saisie ! 
Mais en le copiant !

Genre : La colonne de déclenchement est la colonne P

J’ai un mot qui est " oui " que je viens de copier

Je le colle dans la cellule P3 par exemple bah ça va pas copier la ligne. 
par contre si par dessus la cellule P3 je viens taper manuellement " oui " là ça viens se copier

tu vois ce que je veux dire ?

Quand je remplie le formulaire et je viens faire ajouter ça me copie les valeurs donc j’aimerai que ça déclenche même en copiant !

tu vois ?

Mike-31 · Answer

Re,

Je viens de découvrir ta plaisanterie de faire travailler plusieurs intervenants sur plusieurs Forums sans parler de l'ouverture en doublon de ta demande en faisant bidouiller les codes des uns par les autres et vice versa sur le même sujet.

Ce comportement est un manque de respect a l'encontre de bénévoles qui donnent de leur temps pour t'aider.

Je passe le statut de cette discussion en résolu et ma participation s'arrête ici.

perlox34 · Answer

Quel plaisanterie ? 
J’ai juste poser ma questions sur 2 forums diffèrent pour avoir différent avis avec différent personnes !

Une personne intervenant sur commentcamarche.net n’intervient pas forcément sur forumexcel

Et puis en parlant de doublon sur commentcamarche.net tu n’a pas dû lire ma réponse sur la discussion " copier sur une autre ligne " je te laisse allez la voir

Le Pingou · Answer

Bonjour perlox34,

Je ne trouve pas cette discussion copier sur une autre ligne sur CCM...

Masquer ligne sous condition - Page 3

Discussions similaires

Newsletters