Excel VBA - Comment mettre en surbrillance dans un tableau une ligne sélectionnée ?

Рет қаралды 37,299

6 жыл бұрын

Bonjour à tous,
Cette petite vidéo afin de vous montrer comment avec :
- Un mise en conditionnelle
- Un petit code VBA
- Une plage nommée
- Un outil de Tableau
il vous sera possible de mettre en surbrillance une ligne d'un tableau à partir de la sélection d'une cellule.
Bon visionnage.
******************************************************
* Mon catalogue des produits :
learnaccess.kneo.me/shop
****************************************************** *********************************************************************************************************
Utiliser mon lien de parrainage pour acheter un produit Tesla et obtenir des crédits gratuits :
- kilomètres gratuits en Superchargeur
- des vêtements et accessoires.
ts.la/jeanpaul673722
*************************************************************************************************************

Пікірлер: 53

@ayedmehdy2545 9 ай бұрын

Merci Monsieur, c'est vraiment génial 😊

@yannickeveille2063 3 ай бұрын

parfait ! merci

@christophebequet8634 6 жыл бұрын

Merci beaucoup pour toutes vos vidéos toujours claires et précises.

@vincentm4460 6 жыл бұрын

Merci pour cette vidéo. Très pratique. Bravo à vous.

@pierrotthesofttv 4 жыл бұрын

Merci encore de plus pour ce tuto, fait encore plus car ils nous aident beaucoup

@sassidafri1325 2 жыл бұрын

merci beaucoup

@romlef526 6 жыл бұрын

Bonjour, tuto très plaisant, un grand merci à vous, je l'ai reproduit, et sa fonctionne à merveille

@ouledziri 6 жыл бұрын

"Cette petite vidéo" comme vous dites, me fait une grande joie elle rendra un Grand service à mes yeux, Merci pour ce travail Professionnel

@anthelm114 5 жыл бұрын

Merci pour le tuto, ça fonctionne parfaitement bien et ça rend le document beaucoup plus lisible. Et c'est pas vraiment pas moche une fois que c'est bien fait!

@rabahmenguellati2758 6 жыл бұрын

Toujours aussi clair et précis. Merci pour ce que vous faites

@rabahmenguellati2758 6 жыл бұрын

Svp, est ce que c'est possible d'avoir des tuto de visual basic? Merci

@thierrygoubiou5364 5 жыл бұрын

Merci ! suivi pas à pas très clair et bien expliqué. Bravo

@bertrandf5934 4 жыл бұрын

Génial, exactement ce qu’il, me fallait ! 🙏

@medkari 6 жыл бұрын

Grand Merci

@silexnoguesh 6 жыл бұрын

Merci beaucoup

@landryclark6519 6 жыл бұрын

je tenais personnellement à te féliciter pour ta clarté tes codes ont une visibilité acceptable, c'est bien de toujours mettre du zoom sur les codes saisis. tes explications claires. bravo, j'ai fait et ça marche

@frogeregis 6 жыл бұрын

MERCI BCP

@Smiley6181 6 жыл бұрын

Salut Jean-Paul, merci pour ce tuto, c'est sympa de partager votre savoir avec nous. Une toute petite question, pourquoi lorsque je clic en dehors du tableau, la ligne en surbrillance du tableau reste ? Peut on ajouter un petit bout de code qui annule la surbrillance lorsque l'on clic en dehors du tableau.

@Learnaccess 6 жыл бұрын

C'est normal que la MEC reste si l'on clique en dehors du tableau soit vous créez un autre code identique au mien mais en lui sélectionnant toutes les cellules en dehors du tableau et vous lui dites de retirer la mise en forme conditionnelle du tableau

@Smiley6181 6 жыл бұрын

Ok merci pour votre réponse, hélas je ne peux faire ce que vous dites car j'ai d'autres MEFC de couleur dans le tableau et cela risquerait de me les supprimer également. C'était juste une question pour voir si via un code supplémentaire intégré au vôtre, on pouvait annuler le n° de ligne de la cellule "M3" lorsque le tableau n'était pas cliqué. Mais bon je ne veux pas abuser non plus. Merci Jean-Paul et bonne soirée.

@antoniohenriquesvicente761 6 жыл бұрын

ajoute un Else Range("Ta cellule").Value = "" cela doit marcher

@Smiley6181 6 жыл бұрын

Salut Antonio, oui votre solution fonctionne, je me doutais qu'avec un simple bout de code en plus cela devait fonctionner. Comme je n'y connais rien en VBA, même le plus simple est difficile pour moi. Gros merci à Jean-Paul et à vous Antonio :-) prenez soin de vous @+

@joseflama7286 6 жыл бұрын

Merci bien de vos tutos j'aimerais bien avoir comment transférer les valeurs monétaires de listebox vers un classeur ont gardant le calcul des montants dans le classeur.

@Learnaccess 6 жыл бұрын

Je n'ai pas compris votre question

@joseflama7286 6 жыл бұрын

Learnaccess les valeurs monétaires dans une list box quand ont veux transférer au classeur il ne garde pas sa valeur numérique

@Learnaccess 6 жыл бұрын

Bonjour, Il faut formater les champs de vos formulaires afin qu'ils apparaissent dans votre feuille. L'inverse sera aussi vrai. Je vous laisse regarder le tuto sur le sujet. sinon, faite une recherche sur le site microsoft avec les mots clés suivants Ccur (Currency) , Cdate (Date), CLng (Long), Cint(INteger), ...

@joseflama7286 6 жыл бұрын

Learnaccess bonjour, j'ai formaté les valeurs dans le classeur puis dans listbox, mais quand je l'ai transféré aux classeur et je lance la formule somme dans le classeur sa répond pas Noter biens que le fomatage dans listbox est #, ##0.00

@Learnaccess 6 жыл бұрын

Essayer d'utiliser la fonction : Format(TExtbox,"leformat")

@gerardrichez9549 5 жыл бұрын

Bonjour merci pour cette video (une question) comment ajouter ce programme sur Visual Basic quand il y a déjà un autre programme sur Visual Basic. Merci

@Learnaccess 5 жыл бұрын

Bonjour, je ne comprend pas la question. Vous ne pouvez accéder au code que par une seul personne.

@gerardrichez9549 5 жыл бұрын

Dans Visual Basic jais déjà un VB Projet qui affiche un message de bienvenue je ne Sai pas comment ajouter ce programme pour mettre en surbrillance.@@Learnaccess

@Learnaccess 5 жыл бұрын

Gérard Richez L’événement déclencheur n’est pas le même ? Donc vous pouvez mettre vos macros dans l’événement en question Notamment : A l’ouverture de classeur dans le Thisworkbook ou bien sur la feuille en question

@gerardrichez9549 5 жыл бұрын

(Je les place comment comme cela ou autrement? Workbook - Open Private Sub Workbook_Open() 'Déclaration de la variable Dim DateJour As Date 'Affectation de la variable DateJour = Now() 'Ouverture du classeur sur la feuille Total des Collections Sheets("Calcul Collection").Activate 'Se positionner sur une cellule particulière Range("A1").Select 'Message de bienvenue MsgBox " RICHEZ Gérard " & vbCrLf & "Nous sommes aujourd'hui le :" _ & vbCrLf & vbTab & Format(DateJour, "dddd dd mmmm yyyy"), vdOKOnly + vbInformation, "BIENVENUE - TIMBRES - RICHEZ GERARD" End Sub Worksheet SelectionChange Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A8:M200")) Is Nothing Then Range("Y3").Value = Target.Row End If End Sub @@Learnaccess

@margotdouady5342 6 жыл бұрын

Bonjour, tuto super ! Néanmoins, à la suite de la manip, ma poignée de recopie est invisible lors de l'extension de cellules et impossible de faire "ctrl-Z"...Une idée ?

@Learnaccess 6 жыл бұрын

Normalement il n'y a pas de rapport cela doit marcher. Par contre, toutes les modifications faites directement par le vba ne pourront pas être annulées. De ce fait votre Ctrl Z ne marchera pas.

@Framock 4 жыл бұрын

Bonjour, J'aime bien cette fonction, et cela fonctionne merci pour ce tuto. Mon petit souci pour rendre la fonction parfaite serait que si je sorts du tableau de cette feuille donc en exemple si je vais sur une ligne en dehors du tableau, ma dernière ligne elle reste toujours sélectionnée et évidemment demeure en surligné. Je pense qu'il faudrait débuter la formule en remettant à zéro la cellule (Numéro de ligne)? Quand pensez-vous, j'attends votre suggestion et mile fois pour ce travail.

@Learnaccess 4 жыл бұрын

Franck C’est l’idée Chercher la dernière ligne du tableau et la mettre en couleur

@Framock 4 жыл бұрын

@@Learnaccess Bien je comprend l'idée, mais la je parle lorsque je clique à l'extérieur du Tableau, la dernière cellule elle demaure toujours active donc souligné. Désolé si je ne suis pas claire. Merci de votre temps

@esaiesib202 7 күн бұрын

Comment faire défiler la surbrillance en boucle ?

@gillesPADEBOL 3 жыл бұрын

Merci pour ce tuto Ca fait un an. Dite moi: .... IF Est-ce que vous aimez toujours programmer dans excel ? Si oui: Connaissez vous le jeu MasterMind ? Si oui ' On trouve facilement des appli qui cache les couleurs, mais rien pour que l'appli cherche et trouve la combinaison des couleurs que le joueurs a choisi. Then est ce que cela vous dirai de vous attaqué a ce programme ? Else Temps pis, merci bonne journée. End if

@thierrydemougin8247 4 жыл бұрын

Super cette fonctionnalité Jean Paul, mais est t'il possible d'avoir la ligne mais aussi la colonne en même temps? pour savoir dans quelle ligne et quelle colonne on se trouve.

@Learnaccess 4 жыл бұрын

THIERRY DEMOUGIN Oui c’est possible Avec la fonction colonne()

@thierrydemougin8247 4 жыл бұрын

@@Learnaccess Ok Merci Jean Paul, mais comment l'intégrer dans votre macro?

@Learnaccess 4 жыл бұрын

@@thierrydemougin8247 Il faut récupérer la colonne sur laquelle vous etes (même principe que pour les lignes) Faire votre mis en forme conditionnelle sur la colonne.

@thierrydemougin8247 4 жыл бұрын

@@Learnaccess Merci ça fonctionne! une question encore, j'ai des données qui sont mise sous forme de tableau sur plusieurs feuilles es je veux insérer une ligne supplémentaire sur tout mes tableaux. Mais après avoir sélectionné tout mes onglets impossible d'insérer une ligne. Est ce normal et y a t'il une solution?

@Learnaccess 4 жыл бұрын

@@thierrydemougin8247 Malheureusement, vous devez le faire tableau par tableau

@jacquesdupong7971 6 жыл бұрын

Bonsoir ne sauriez vous pas me diriger vers un de vos tutoriels qui montrait comment monter ou descendre une ligne d'un tableau. D'avance merci

@Learnaccess 6 жыл бұрын

J'ai pas fait de tuto mais il serait assez simple de faire un bouton permet de descendre de ligne en ligne et un autre qui monte de ligne en ligne En utilisant l'instruction Offset(1,0).select pour descendre et Offset(-1,0).select pour remonter

@jacquesdupong7971 6 жыл бұрын

Learnaccess merci monsieur je vais essayer de tenter l'aventure. Ça a l'air tellement simple qd vous en parlez

@jjj90450 2 жыл бұрын

Bonjour je trouve ça très compliqué et complexe à mon avis faut pas être débutant perso comprend rien

@jean-pierrehry6705 2 жыл бұрын

On voit qu il connaît bien son sujet. Je trouve cependant la présentation trop brouillon, et pas assez structurée. Débit de parole un peu trop élevé. Dommage car ne convient pas à tout le monde car trop pénible. A savoir qu entre le niveau de compétences et de connaissances. et faire savoir de façon simple et méthodique, il y à un monde…