Bonjour,
Je commence a travailler avec des macro et je galère un peu a sélectionner
une plage de cellule dans des macros.
En fait, je voudrai que la macro reconnaisse une cellule d’un tableau
contenant le même texte qu’une cellule annexe (en dehors du tableau) et
sélectionne (pour après l’effacer) tout la ligne du tableau contenant cette
cellule.
Merci d’avance.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour A adapter : Dim rng As Range With Worksheets("Feuil1") Set rng = .Range("A1:F50").Find(.[H1]) If Not rng Is Nothing Then rng.EntireRow.Select Else Msgbox .[H1] & " non trouvé" End If End With
Cordialement Pascal
"Romaric" a écrit dans le message de news:
Bonjour, Je commence a travailler avec des macro et je galère un peu a sélectionner une plage de cellule dans des macros. En fait, je voudrai que la macro reconnaisse une cellule d'un tableau contenant le même texte qu'une cellule annexe (en dehors du tableau) et sélectionne (pour après l'effacer) tout la ligne du tableau contenant cette cellule. Merci d'avance.
-- romaric
Bonjour
A adapter :
Dim rng As Range
With Worksheets("Feuil1")
Set rng = .Range("A1:F50").Find(.[H1])
If Not rng Is Nothing Then
rng.EntireRow.Select
Else Msgbox .[H1] & " non trouvé"
End If
End With
Cordialement
Pascal
"Romaric" <Romaric@discussions.microsoft.com> a écrit dans le message de
news: D81A1B09-9DD3-4B1A-9C33-1DD36917D740@microsoft.com...
Bonjour,
Je commence a travailler avec des macro et je galère un peu a sélectionner
une plage de cellule dans des macros.
En fait, je voudrai que la macro reconnaisse une cellule d'un tableau
contenant le même texte qu'une cellule annexe (en dehors du tableau) et
sélectionne (pour après l'effacer) tout la ligne du tableau contenant
cette
cellule.
Merci d'avance.
Bonjour A adapter : Dim rng As Range With Worksheets("Feuil1") Set rng = .Range("A1:F50").Find(.[H1]) If Not rng Is Nothing Then rng.EntireRow.Select Else Msgbox .[H1] & " non trouvé" End If End With
Cordialement Pascal
"Romaric" a écrit dans le message de news:
Bonjour, Je commence a travailler avec des macro et je galère un peu a sélectionner une plage de cellule dans des macros. En fait, je voudrai que la macro reconnaisse une cellule d'un tableau contenant le même texte qu'une cellule annexe (en dehors du tableau) et sélectionne (pour après l'effacer) tout la ligne du tableau contenant cette cellule. Merci d'avance.
-- romaric
Jacky
Bonjour Romaric
Avec la recherche à partir de la valeur de la cellule A1 et le tableau nommé 'tableau' Une piste avec ceci: '--------- For Each c In Range("tableau") If c = [a1] Then MsgBox "Le contenu se trouve à la ligne " & c.Row End If Next '--------- Bon courage JJ
"Romaric" a écrit dans le message de news:
Bonjour, Je commence a travailler avec des macro et je galère un peu a sélectionner
une plage de cellule dans des macros. En fait, je voudrai que la macro reconnaisse une cellule d'un tableau contenant le même texte qu'une cellule annexe (en dehors du tableau) et sélectionne (pour après l'effacer) tout la ligne du tableau contenant cette
cellule. Merci d'avance.
-- romaric
Bonjour Romaric
Avec la recherche à partir de la valeur de la cellule A1 et le tableau
nommé 'tableau'
Une piste avec ceci:
'---------
For Each c In Range("tableau")
If c = [a1] Then
MsgBox "Le contenu se trouve à la ligne " & c.Row
End If
Next
'---------
Bon courage
JJ
"Romaric" <Romaric@discussions.microsoft.com> a écrit dans le message de
news:D81A1B09-9DD3-4B1A-9C33-1DD36917D740@microsoft.com...
Bonjour,
Je commence a travailler avec des macro et je galère un peu a
sélectionner
une plage de cellule dans des macros.
En fait, je voudrai que la macro reconnaisse une cellule d'un tableau
contenant le même texte qu'une cellule annexe (en dehors du tableau) et
sélectionne (pour après l'effacer) tout la ligne du tableau contenant
cette
Avec la recherche à partir de la valeur de la cellule A1 et le tableau nommé 'tableau' Une piste avec ceci: '--------- For Each c In Range("tableau") If c = [a1] Then MsgBox "Le contenu se trouve à la ligne " & c.Row End If Next '--------- Bon courage JJ
"Romaric" a écrit dans le message de news:
Bonjour, Je commence a travailler avec des macro et je galère un peu a sélectionner
une plage de cellule dans des macros. En fait, je voudrai que la macro reconnaisse une cellule d'un tableau contenant le même texte qu'une cellule annexe (en dehors du tableau) et sélectionne (pour après l'effacer) tout la ligne du tableau contenant cette
cellule. Merci d'avance.
-- romaric
ChrisV
Bonjour Romaric,
Avec la plage de données nommée Zn et la "cellule annexe" nommée ici valR
Sub test() On Error Resume Next [Zn].Find(what:=[valR]).Activate If Err.Number <> 0 Then MsgBox "La plage Zn ne contient pas la chaîne recherchée..." Exit Sub Else With Selection Range(.End(xlToLeft), .End(xlToRight)).Select End With End If End Sub
ChrisV
"Romaric" a écrit dans le message de news:
Bonjour, Je commence a travailler avec des macro et je galère un peu a sélectionner une plage de cellule dans des macros. En fait, je voudrai que la macro reconnaisse une cellule d'un tableau contenant le même texte qu'une cellule annexe (en dehors du tableau) et sélectionne (pour après l'effacer) tout la ligne du tableau contenant cette cellule. Merci d'avance.
-- romaric
Bonjour Romaric,
Avec la plage de données nommée Zn et la "cellule annexe" nommée ici valR
Sub test()
On Error Resume Next
[Zn].Find(what:=[valR]).Activate
If Err.Number <> 0 Then
MsgBox "La plage Zn ne contient pas la chaîne recherchée..."
Exit Sub
Else
With Selection
Range(.End(xlToLeft), .End(xlToRight)).Select
End With
End If
End Sub
ChrisV
"Romaric" <Romaric@discussions.microsoft.com> a écrit dans le message de
news: D81A1B09-9DD3-4B1A-9C33-1DD36917D740@microsoft.com...
Bonjour,
Je commence a travailler avec des macro et je galère un peu a sélectionner
une plage de cellule dans des macros.
En fait, je voudrai que la macro reconnaisse une cellule d'un tableau
contenant le même texte qu'une cellule annexe (en dehors du tableau) et
sélectionne (pour après l'effacer) tout la ligne du tableau contenant
cette
cellule.
Merci d'avance.
Avec la plage de données nommée Zn et la "cellule annexe" nommée ici valR
Sub test() On Error Resume Next [Zn].Find(what:=[valR]).Activate If Err.Number <> 0 Then MsgBox "La plage Zn ne contient pas la chaîne recherchée..." Exit Sub Else With Selection Range(.End(xlToLeft), .End(xlToRight)).Select End With End If End Sub
ChrisV
"Romaric" a écrit dans le message de news:
Bonjour, Je commence a travailler avec des macro et je galère un peu a sélectionner une plage de cellule dans des macros. En fait, je voudrai que la macro reconnaisse une cellule d'un tableau contenant le même texte qu'une cellule annexe (en dehors du tableau) et sélectionne (pour après l'effacer) tout la ligne du tableau contenant cette cellule. Merci d'avance.
