Comment surligner la ligne de la cellule sélectionnée

No video

Comment surligner la ligne de la cellule sélectionnée

Рет қаралды 30,852

Күн бұрын

Dans ce nouveau tutoriel, nous allons répondre à une question qui revient souvent : comment mettre en évidence la ligne dans laquelle se trouve la cellule sélectionnée. Nous allons voir deux méthodes qui vont permettent d’arriver au même résultat attendu. Ces deux techniques avancées, ont l’avantage de préserver la mise en forme d’origine du classeur lorsqu’une nouvelle ligne est sélectionnée !
Pour plus d'informations : www.excelforma...
Pour télécharger le fichier : www.excelforma...
Facebook : / excelformation.fr

Пікірлер: 36

@pollypeachum6035 3 жыл бұрын

Formidablement clair, même pour les néophytes comme moi ! Merci beaucoup ♥

@laetitiajulien8784 Жыл бұрын

Merci beaucoup 🙂c'est génial ! Pour info je n'y arrivais pas car j'avais indiqué : Range("_maligne") - ActiveCell.Row au lieu de Range("_maligne") = ActiveCell.Row -->je ne voyais pas très bien le "="

@asmaeelguermah6205 3 жыл бұрын

Merci bcp. ajouté a mon fichier. j'ai impressionné mes supérieures

@ExcelFormation 3 жыл бұрын

Génial ! :)

@brixtondesmond5397 3 жыл бұрын

you prolly dont care but if you guys are bored like me during the covid times then you can stream pretty much all the latest series on Instaflixxer. Have been binge watching with my brother lately xD

@jasperjoseph872 3 жыл бұрын

@Brixton Desmond Yea, have been using InstaFlixxer for since november myself =)

@laetitiajulien8784 Жыл бұрын

Merci beaucoup 🙂c'est génial ! ...Par contre j'ai une question = lors de la saisie, la fonction "annuler" ne fonctionne plus. Est-ce qu'il est possible d'y remédier ? Merci

@remyurbainelota4657 4 жыл бұрын

Bien reçu et merci Monsieur Alex

@ExcelFormation 4 жыл бұрын

Avec plaisir ! À bientôt :)

@claudecabe1681 2 жыл бұрын

Métuode 2 ; On obtient un message de débogage qui met en évidence la ligne "With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE(" & zone.Cells(1).Address(False, False & " =" & Activecells.Row)) Erreur 424 : Objet requis et comme je ne connais rien à VBA je suis incapable de me dépanner Merci de votre aide

@regiz1989 2 жыл бұрын

J'ai automatiquement un message de débogage qui me met en évidence la ligne "With zone.FormatConditions....". Je suis perplexe... Erreur 424 : Objet requis

@ameliecapistran9309 11 ай бұрын

Bonjour, votre tuto est super, mais pour la méthode 2, ça ne fonctionne pas. Ça met seulement la cellule sélectionné en couleur. Je l'ai même fait dans un autre classeur. Merci pour votre aide 😊

@marcelrauch3790 2 жыл бұрын

Merci pour la vidéo. J'ai compris et appliqué avec succès la version1. La version2 me dépasse...

@pollypeachum6035 3 жыл бұрын

Bonjour (petit ajout à mon comm' précédent). Je ne sais pas si la question de Sylvia tout en bas est la même que la mienne : elle demandait comment copier une ligne sélectionnée sur une autre feuille du classeur, et moi je cherche comment appliquer cette méthose de surbrillance à TOUTES les feuilles de mon classeur. Je viens de chercher longtemps (j'ai renommé "_maligne" en "_maligne2" (et changé également les instructions qui y font référence) mais ça ne fonctionne pas. C'est une limitation de la procédure ou il y a quelque chose que j'ai mal compris ? Merci par avance pour le conseil ;-)

@AISSA70 Жыл бұрын

bonjour svp ou il y a l'erreur?? Dim zone As Range Set zone = ActiveCell.CurrentRegion Cells.FormatConditions.Delete With zone.FormatConditions.Add(xlExpression, Null, "=ligne(" & zone.Cells(1).adress(False, False) & ")=" & ActiveCell.Row) .Font.ColorIndex = 2 .Interior.ColorIndex = 32 End With

@pompon517 5 жыл бұрын

Bjr merci pour votre vidéo j aimerai savoir comment faire en vba pr copier la ligne sélectionnée sur une autre feuille est ce possible ? Merci

@ExcelFormation 5 жыл бұрын

Bonjour, merci pour votre message. Vous pouvez insérer cette procédure dans un nouveau module : Sub copierLigne(r As Range) r.copy Dim ws As Worksheet Set ws = ActiveSheet Dim ligne As Integer ligne = 1 While Sheets("out").Range("a" & ligne) "" ligne = ligne + 1 Wend Sheets("out").Select Range("a" & ligne).Select ActiveSheet.Paste ws.Select End Sub Ensuite, vous l'appelez depuis l'évènement sélection change : Call copierLigne(Target.EntireRow)

@vincentpalmer2628 Жыл бұрын

Super, mais j'ai une question de débutant... J'aimerais, au lieu de changer la couleur de la ligne, faire apparaître des bordures de couleur en bas et en haut. Merci pour votre aide !

@user-sr6kv1nc6w Жыл бұрын

Salut Vincent, pour ma part j'ai fait ainsi : au lieu d'utiliser .Interior.ColorIndex = 32 j'ai utilisé cela avec la couleur rouge (3) .Borders.ColorIndex = 3

@micka6650 2 жыл бұрын

Bonjour, merci pour le tuto. J'aimerais ajouter un bouton dans le ruban pour pouvoir éxecuter ou non cette macro. Je m'explique, quand j'appuie sur le bouton, quand je clic sur une cellule toutes la lignes est colorié en bleue. Et quand je rappuie sur ce même bouton, plus rien ne se passe quand je clic sur une cellule dans mon tableau. Merci d'avance :)

@guillaumebeauchamp4560 2 жыл бұрын

Vous pouvez y aller avec une case à remplir ou non. ce que j'utilise ici F1. J'ai ajouté par le fait même la colonne pour former un réticule. Aussi, l'utilisation de Cells pour Set Zone si vous désirer uleréticule sur l'ensemble de la feuille si vous donnéss sont espacés dans des cellules vides. ---------------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim zone As Range Set zone = Cells If IsEmpty(Range("F1")) = True Then Cells.FormatConditions.Delete With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE(" & zone.Cells(1).Address(False, False) & ")=" & ActiveCell.Row) .Font.ColorIndex = 2 .Interior.ColorIndex = 32 End With With zone.FormatConditions.Add(xlExpression, Null, "=COLONNE(" & zone.Cells(1).Address(False, False) & ")=" & ActiveCell.Column) .Font.ColorIndex = 2 .Interior.ColorIndex = 32 End With Else Cells.FormatConditions.Delete End If End Sub

@micka6650 2 жыл бұрын

@@guillaumebeauchamp4560 Merci c'est ce que j'avais fais du coup :)

@totaldeveloppement7140 Жыл бұрын

Salut Prof Comment supprimer des lignes d'une feuille Excel entre deux dates différentes en code VBA exp je doit supprimer entre date début 01/01/22 et Date Fin 25/02/22 et merci

@nathanjung5884 3 жыл бұрын

Bonjour, j'aimerai ajouter dans la mise en forme un effet de zoom, donc agrandir la cellule active mais si je rajoute un .Font.Size = 16 par exemple dans le With, cela me met une erreur..

@ExcelFormation 3 жыл бұрын

Bonjour, en effet la mise en forme conditionnelle ne permet de modifier la taille du texte... Pour cela, il faut agir directement sur la vraie taille du texte en utilisant par exemple : Private Sub Worksheet_SelectionChange(ByVal Target As Range) .... ActiveSheet.Cells.Font.Size = 11 Intersect(ActiveCell.CurrentRegion, ActiveCell.EntireRow).Font.Size = 16 ...

@nathanjung5884 3 жыл бұрын

@@ExcelFormation d'accord merci pour l'aide !

@julienretrain7489 2 жыл бұрын

Bonjour, je précise qu'il y a beaucoup plus simple que de mêler les nom de cellule et VBA. Avec 2 lignes de VBA c'est réglé : Range(Rows(3), Rows(10000)).Interior.Color = xlNone Rows(Target.Row).Interior.Color = RGB(217, 225, 242) Dans ce cas j'appique de la ligne 3 à 10000 mais vous pouvez élargir la plage. Il faut le mettre dans le code de votre feuille et sélectionner une application du code à chaque SelectionChange. Pour expliquer le code: il s'applique à chaque changement de sélection (et il sait quelle case est sélectionnée) : D'abord il supprime toutes les couleurs (pour ne pas conserver la couleur de l'ancienne ligne), puis il met en couleur la ligne de la 'Target' (la cible : la cellule sélectionnée)

@jamesmlinaric1468 Жыл бұрын

Bonjour, simple et efficace en effet. Mais comment faire pour que ça ne supprime pas ma mise en forme de base mais que ça prenne juste le dessus quand je suis sur ma ligne sélectionnée car je dois garder mes mises en forme. Merci bien

@atifashawar4054 7 ай бұрын

Code pour méthode 2 marche pas

@leonel9097 2 жыл бұрын

Je veux faire ça pour une seul cellule svp aid moi

@user-dm3pt6fc4k 11 ай бұрын

bjr, ça m'ennuierait de mettre une notation négative. Mais attention à bien tout montrer sur la vidéo (lors de la saisie de la cellule recherchée la barre de saisie est masquée par une fenêtre superposée!) Quant au fichier "final", les cellules sont paramétrées sans expli. Attention de privilégier l'apprentissage à la démo d'un pro! merci

@ExcelFormation 11 ай бұрын

Merci pour ce retour :)