Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Help suite à la réponse de AV

Help suite à la réponse de AV

8 réponses
Avatar
Pako
Bonjour
merci d'avoir répondu à ma demande
malhereusement je n'arrive pas à mettre à execution la macro
Pourais tu me faire un exemple sur un fichier exel? halifax67@free.fr
merci
La demande et ta réponse étaient les suivante:

En supposant tes données en A1:Ex de "Feuil1" (à adapter)
Saisir un N° de ligne dans la colonne A de "Feuil2" pour récupérer les
valeurs
de la ligne correspondante (valeur saisie) de "Feuil1" :
Dans le module de "Feuil2" :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column = 1 Then
On Error Resume Next
Application.EnableEvents = False
Sheets("Feuil1").Range("A" & zz & ":E" & zz).Copy (Cells(zz.Row,
"A"))
Application.EnableEvents = True
End If
End Sub

AV

"Pako" <adresse@néan.fr> a écrit dans le message news:
3f03060d$0$29677$626a54ce@news.free.fr...
> Bonjour,
> J'ai enregistré des informations ligne par ligne sur un fichier Exel.
> Comme il y a plusieurs centaines de ligne, j'ai inséré un numéro devant
> chaque ligne dans une cellule
> Je veux récupérer une ligne "x" sur une autre feuille de ce classeur
> simplement en tapant le numéro
> Es ce possible
> si oui comment faire ?
> merci
>
>
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
michdenis
Bonjour Pako,

Essaie ceci :

Le principe, si tu changes une information dans la colonne A:A de la feuille :"Feuil1", la ligne Ax:Ex sera copié vers la
feuille :Feuil2 sur la même ligne. De même, si tu effaces une entrée dans la colonne A:A de la feuille 1, l'équivalent de la
feuille 2 sera effacée.


'---------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(zz, Range("A:A"))
If Not Rg Is Nothing Then
Application.EnableEvents = False
For Each C In Rg
If C <> "" Then
Range("A" & C.Row & ":E" & C.Row).Copy Sheets("Feuil2").Cells(C.Row, "A")
Application.EnableEvents = True
Else
Sheets("Feuil2").Range("A" & C.Row & ":E" & C.Row).Delete
End If
Next
Application.EnableEvents = True
End If
Set Rg = Nothing: Set C = Nothing
End Sub
'---------------------------------


Salutations!


"Pako" éan.fr> a écrit dans le message de news:3f0466a3$0$29623$
Bonjour
merci d'avoir répondu à ma demande
malhereusement je n'arrive pas à mettre à execution la macro
Pourais tu me faire un exemple sur un fichier exel?
merci
La demande et ta réponse étaient les suivante:

En supposant tes données en A1:Ex de "Feuil1" (à adapter)
Saisir un N° de ligne dans la colonne A de "Feuil2" pour récupérer les
valeurs
de la ligne correspondante (valeur saisie) de "Feuil1" :
Dans le module de "Feuil2" :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column = 1 Then
On Error Resume Next
Application.EnableEvents = False
Sheets("Feuil1").Range("A" & zz & ":E" & zz).Copy (Cells(zz.Row,
"A"))
Application.EnableEvents = True
End If
End Sub

AV

"Pako" éan.fr> a écrit dans le message news:
3f03060d$0$29677$
Bonjour,
J'ai enregistré des informations ligne par ligne sur un fichier Exel.
Comme il y a plusieurs centaines de ligne, j'ai inséré un numéro devant
chaque ligne dans une cellule
Je veux récupérer une ligne "x" sur une autre feuille de ce classeur
simplement en tapant le numéro
Es ce possible
si oui comment faire ?
merci




Avatar
Pako
Help Help Help
ça ne marche
J'explique :
J'ai une feuil 1
j'ai des numéros dans la colonne A de A3 à A2000 mais ces numéros ne
correspondent pas aux numéros de lignes
Pour chaque numéro j'insère des informations dans plusieurs cellules de la
même ligne
Exemple: A58 = 50 B58 = Michel C58 = PDG ...etc
Sur la feuil 2
Je veux récupérer et faire apparaitre une seul ligne sur les 2000
simplement en écrivant un numéro dans une cellule
je choisi la cellule A1 feuil 2 et j'écris 50
et les infos çi-contre apparaissent: en B1 Michel en C1 PDG ...etc
c'est aussi simple que ça, mais je n'ai aucune idée comment faire
En espérant avoir été assez clair
je vous remerci d'avance

"michdenis" a écrit dans le message de news:
#
Bonjour Pako,

Essaie ceci :

Le principe, si tu changes une information dans la colonne A:A de la
feuille :"Feuil1", la ligne Ax:Ex sera copié vers la

feuille :Feuil2 sur la même ligne. De même, si tu effaces une entrée dans
la colonne A:A de la feuille 1, l'équivalent de la

feuille 2 sera effacée.


'---------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(zz, Range("A:A"))
If Not Rg Is Nothing Then
Application.EnableEvents = False
For Each C In Rg
If C <> "" Then
Range("A" & C.Row & ":E" & C.Row).Copy
Sheets("Feuil2").Cells(C.Row, "A")

Application.EnableEvents = True
Else
Sheets("Feuil2").Range("A" & C.Row & ":E" & C.Row).Delete
End If
Next
Application.EnableEvents = True
End If
Set Rg = Nothing: Set C = Nothing
End Sub
'---------------------------------


Salutations!


"Pako" éan.fr> a écrit dans le message de
news:3f0466a3$0$29623$

Bonjour
merci d'avoir répondu à ma demande
malhereusement je n'arrive pas à mettre à execution la macro
Pourais tu me faire un exemple sur un fichier exel?
merci
La demande et ta réponse étaient les suivante:

En supposant tes données en A1:Ex de "Feuil1" (à adapter)
Saisir un N° de ligne dans la colonne A de "Feuil2" pour récupérer les
valeurs
de la ligne correspondante (valeur saisie) de "Feuil1" :
Dans le module de "Feuil2" :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column = 1 Then
On Error Resume Next
Application.EnableEvents = False
Sheets("Feuil1").Range("A" & zz & ":E" & zz).Copy (Cells(zz.Row,
"A"))
Application.EnableEvents = True
End If
End Sub

AV

"Pako" éan.fr> a écrit dans le message news:
3f03060d$0$29677$
Bonjour,
J'ai enregistré des informations ligne par ligne sur un fichier Exel.
Comme il y a plusieurs centaines de ligne, j'ai inséré un numéro devant
chaque ligne dans une cellule
Je veux récupérer une ligne "x" sur une autre feuille de ce classeur
simplement en tapant le numéro
Es ce possible
si oui comment faire ?
merci











Avatar
michdenis
Bonjour Pako,

à quelle place tu veux récupérer tes informations en feuil2 ?
sur la même ligne que la feuille source 1 où tu as écrit tes données ?
sur la première ligne disponible en Feuil2 ?

Et si tu précisais ?

Salutations!


"Pako" éan.fr> a écrit dans le message de news:3f048a40$0$29672$
Help Help Help
ça ne marche
J'explique :
J'ai une feuil 1
j'ai des numéros dans la colonne A de A3 à A2000 mais ces numéros ne
correspondent pas aux numéros de lignes
Pour chaque numéro j'insère des informations dans plusieurs cellules de la
même ligne
Exemple: A58 = 50 B58 = Michel C58 = PDG ...etc
Sur la feuil 2
Je veux récupérer et faire apparaitre une seul ligne sur les 2000
simplement en écrivant un numéro dans une cellule
je choisi la cellule A1 feuil 2 et j'écris 50
et les infos çi-contre apparaissent: en B1 Michel en C1 PDG ...etc
c'est aussi simple que ça, mais je n'ai aucune idée comment faire
En espérant avoir été assez clair
je vous remerci d'avance

"michdenis" a écrit dans le message de news:
#
Bonjour Pako,

Essaie ceci :

Le principe, si tu changes une information dans la colonne A:A de la
feuille :"Feuil1", la ligne Ax:Ex sera copié vers la

feuille :Feuil2 sur la même ligne. De même, si tu effaces une entrée dans
la colonne A:A de la feuille 1, l'équivalent de la

feuille 2 sera effacée.


'---------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(zz, Range("A:A"))
If Not Rg Is Nothing Then
Application.EnableEvents = False
For Each C In Rg
If C <> "" Then
Range("A" & C.Row & ":E" & C.Row).Copy
Sheets("Feuil2").Cells(C.Row, "A")

Application.EnableEvents = True
Else
Sheets("Feuil2").Range("A" & C.Row & ":E" & C.Row).Delete
End If
Next
Application.EnableEvents = True
End If
Set Rg = Nothing: Set C = Nothing
End Sub
'---------------------------------


Salutations!


"Pako" éan.fr> a écrit dans le message de
news:3f0466a3$0$29623$

Bonjour
merci d'avoir répondu à ma demande
malhereusement je n'arrive pas à mettre à execution la macro
Pourais tu me faire un exemple sur un fichier exel?
merci
La demande et ta réponse étaient les suivante:

En supposant tes données en A1:Ex de "Feuil1" (à adapter)
Saisir un N° de ligne dans la colonne A de "Feuil2" pour récupérer les
valeurs
de la ligne correspondante (valeur saisie) de "Feuil1" :
Dans le module de "Feuil2" :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column = 1 Then
On Error Resume Next
Application.EnableEvents = False
Sheets("Feuil1").Range("A" & zz & ":E" & zz).Copy (Cells(zz.Row,
"A"))
Application.EnableEvents = True
End If
End Sub

AV

"Pako" éan.fr> a écrit dans le message news:
3f03060d$0$29677$
Bonjour,
J'ai enregistré des informations ligne par ligne sur un fichier Exel.
Comme il y a plusieurs centaines de ligne, j'ai inséré un numéro devant
chaque ligne dans une cellule
Je veux récupérer une ligne "x" sur une autre feuille de ce classeur
simplement en tapant le numéro
Es ce possible
si oui comment faire ?
merci











Avatar
Pako
sur la troisième ligne en feuil 2

"michdenis" a écrit dans le message de news:

Bonjour Pako,

à quelle place tu veux récupérer tes informations en feuil2 ?
sur la même ligne que la feuille source 1 où tu as écrit tes données ?
sur la première ligne disponible en Feuil2 ?

Et si tu précisais ?

Salutations!


"Pako" éan.fr> a écrit dans le message de
news:3f048a40$0$29672$

Help Help Help
ça ne marche
J'explique :
J'ai une feuil 1
j'ai des numéros dans la colonne A de A3 à A2000 mais ces numéros ne
correspondent pas aux numéros de lignes
Pour chaque numéro j'insère des informations dans plusieurs cellules de la
même ligne
Exemple: A58 = 50 B58 = Michel C58 = PDG ...etc
Sur la feuil 2
Je veux récupérer et faire apparaitre une seul ligne sur les 2000
simplement en écrivant un numéro dans une cellule
je choisi la cellule A1 feuil 2 et j'écris 50
et les infos çi-contre apparaissent: en B1 Michel en C1 PDG ...etc
c'est aussi simple que ça, mais je n'ai aucune idée comment faire
En espérant avoir été assez clair
je vous remerci d'avance

"michdenis" a écrit dans le message de news:
#
Bonjour Pako,

Essaie ceci :

Le principe, si tu changes une information dans la colonne A:A de la
feuille :"Feuil1", la ligne Ax:Ex sera copié vers la

feuille :Feuil2 sur la même ligne. De même, si tu effaces une entrée
dans


la colonne A:A de la feuille 1, l'équivalent de la
feuille 2 sera effacée.


'---------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(zz, Range("A:A"))
If Not Rg Is Nothing Then
Application.EnableEvents = False
For Each C In Rg
If C <> "" Then
Range("A" & C.Row & ":E" & C.Row).Copy
Sheets("Feuil2").Cells(C.Row, "A")

Application.EnableEvents = True
Else
Sheets("Feuil2").Range("A" & C.Row & ":E" & C.Row).Delete
End If
Next
Application.EnableEvents = True
End If
Set Rg = Nothing: Set C = Nothing
End Sub
'---------------------------------


Salutations!


"Pako" éan.fr> a écrit dans le message de
news:3f0466a3$0$29623$

Bonjour
merci d'avoir répondu à ma demande
malhereusement je n'arrive pas à mettre à execution la macro
Pourais tu me faire un exemple sur un fichier exel?
merci
La demande et ta réponse étaient les suivante:

En supposant tes données en A1:Ex de "Feuil1" (à adapter)
Saisir un N° de ligne dans la colonne A de "Feuil2" pour récupérer les
valeurs
de la ligne correspondante (valeur saisie) de "Feuil1" :
Dans le module de "Feuil2" :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column = 1 Then
On Error Resume Next
Application.EnableEvents = False
Sheets("Feuil1").Range("A" & zz & ":E" & zz).Copy
(Cells(zz.Row,


"A"))
Application.EnableEvents = True
End If
End Sub

AV

"Pako" éan.fr> a écrit dans le message news:
3f03060d$0$29677$
Bonjour,
J'ai enregistré des informations ligne par ligne sur un fichier Exel.
Comme il y a plusieurs centaines de ligne, j'ai inséré un numéro
devant



chaque ligne dans une cellule
Je veux récupérer une ligne "x" sur une autre feuille de ce classeur
simplement en tapant le numéro
Es ce possible
si oui comment faire ?
merci
















Avatar
sabatier
moi, je verrais bien une Inputbox pour régler ce problème mais je ne
dégaine jamais assez vite alors je laisse le soin aux cracos de pondre
la macro qui va bien
jps

michdenis a écrit:
Bonjour Pako,

à quelle place tu veux récupérer tes informations en feuil2 ?
sur la même ligne que la feuille source 1 où tu as écrit tes données ?
sur la première ligne disponible en Feuil2 ?

Et si tu précisais ?

Salutations!


"Pako" éan.fr> a écrit dans le message de news:3f048a40$0$29672$
Help Help Help
ça ne marche
J'explique :
J'ai une feuil 1
j'ai des numéros dans la colonne A de A3 à A2000 mais ces numéros ne
correspondent pas aux numéros de lignes
Pour chaque numéro j'insère des informations dans plusieurs cellules de la
même ligne
Exemple: A58 = 50 B58 = Michel C58 = PDG ...etc
Sur la feuil 2
Je veux récupérer et faire apparaitre une seul ligne sur les 2000
simplement en écrivant un numéro dans une cellule
je choisi la cellule A1 feuil 2 et j'écris 50
et les infos çi-contre apparaissent: en B1 Michel en C1 PDG ...etc
c'est aussi simple que ça, mais je n'ai aucune idée comment faire
En espérant avoir été assez clair
je vous remerci d'avance

"michdenis" a écrit dans le message de news:
#

Bonjour Pako,

Essaie ceci :

Le principe, si tu changes une information dans la colonne A:A de la


feuille :"Feuil1", la ligne Ax:Ex sera copié vers la

feuille :Feuil2 sur la même ligne. De même, si tu effaces une entrée dans


la colonne A:A de la feuille 1, l'équivalent de la

feuille 2 sera effacée.


'---------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(zz, Range("A:A"))
If Not Rg Is Nothing Then
Application.EnableEvents = False
For Each C In Rg
If C <> "" Then
Range("A" & C.Row & ":E" & C.Row).Copy


Sheets("Feuil2").Cells(C.Row, "A")

Application.EnableEvents = True
Else
Sheets("Feuil2").Range("A" & C.Row & ":E" & C.Row).Delete
End If
Next
Application.EnableEvents = True
End If
Set Rg = Nothing: Set C = Nothing
End Sub
'---------------------------------


Salutations!


"Pako" éan.fr> a écrit dans le message de


news:3f0466a3$0$29623$

Bonjour
merci d'avoir répondu à ma demande
malhereusement je n'arrive pas à mettre à execution la macro
Pourais tu me faire un exemple sur un fichier exel?
merci
La demande et ta réponse étaient les suivante:

En supposant tes données en A1:Ex de "Feuil1" (à adapter)
Saisir un N° de ligne dans la colonne A de "Feuil2" pour récupérer les
valeurs
de la ligne correspondante (valeur saisie) de "Feuil1" :
Dans le module de "Feuil2" :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column = 1 Then
On Error Resume Next
Application.EnableEvents = False
Sheets("Feuil1").Range("A" & zz & ":E" & zz).Copy (Cells(zz.Row,
"A"))
Application.EnableEvents = True
End If
End Sub

AV

"Pako" éan.fr> a écrit dans le message news:
3f03060d$0$29677$

Bonjour,
J'ai enregistré des informations ligne par ligne sur un fichier Exel.
Comme il y a plusieurs centaines de ligne, j'ai inséré un numéro devant
chaque ligne dans une cellule
Je veux récupérer une ligne "x" sur une autre feuille de ce classeur
simplement en tapant le numéro
Es ce possible
si oui comment faire ?
merci
















Avatar
michdenis
Bonjour Pako,

Il manque une information importante,

Si tu remplis sur une ligne 2 colonnes de données et
sur une autre ligne 5 colonnes de données...and so on,
comment savoir que tu as terminé la saisie des données pour une ligne particulière pour exécuter la copie sur la feuil2. ?


P.S. Je sais c'est beaucoup de questions ... Mais il faut être précis dans la description de ses manipulations pour en
arriver au résultat escompté !

Salutations!



"Pako" éan.fr> a écrit dans le message de news:3f048da0$0$29648$
sur la troisième ligne en feuil 2

"michdenis" a écrit dans le message de news:

Bonjour Pako,

à quelle place tu veux récupérer tes informations en feuil2 ?
sur la même ligne que la feuille source 1 où tu as écrit tes données ?
sur la première ligne disponible en Feuil2 ?

Et si tu précisais ?

Salutations!


"Pako" éan.fr> a écrit dans le message de
news:3f048a40$0$29672$

Help Help Help
ça ne marche
J'explique :
J'ai une feuil 1
j'ai des numéros dans la colonne A de A3 à A2000 mais ces numéros ne
correspondent pas aux numéros de lignes
Pour chaque numéro j'insère des informations dans plusieurs cellules de la
même ligne
Exemple: A58 = 50 B58 = Michel C58 = PDG ...etc
Sur la feuil 2
Je veux récupérer et faire apparaitre une seul ligne sur les 2000
simplement en écrivant un numéro dans une cellule
je choisi la cellule A1 feuil 2 et j'écris 50
et les infos çi-contre apparaissent: en B1 Michel en C1 PDG ...etc
c'est aussi simple que ça, mais je n'ai aucune idée comment faire
En espérant avoir été assez clair
je vous remerci d'avance

"michdenis" a écrit dans le message de news:
#
Bonjour Pako,

Essaie ceci :

Le principe, si tu changes une information dans la colonne A:A de la
feuille :"Feuil1", la ligne Ax:Ex sera copié vers la

feuille :Feuil2 sur la même ligne. De même, si tu effaces une entrée
dans


la colonne A:A de la feuille 1, l'équivalent de la
feuille 2 sera effacée.


'---------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(zz, Range("A:A"))
If Not Rg Is Nothing Then
Application.EnableEvents = False
For Each C In Rg
If C <> "" Then
Range("A" & C.Row & ":E" & C.Row).Copy
Sheets("Feuil2").Cells(C.Row, "A")

Application.EnableEvents = True
Else
Sheets("Feuil2").Range("A" & C.Row & ":E" & C.Row).Delete
End If
Next
Application.EnableEvents = True
End If
Set Rg = Nothing: Set C = Nothing
End Sub
'---------------------------------


Salutations!


"Pako" éan.fr> a écrit dans le message de
news:3f0466a3$0$29623$

Bonjour
merci d'avoir répondu à ma demande
malhereusement je n'arrive pas à mettre à execution la macro
Pourais tu me faire un exemple sur un fichier exel?
merci
La demande et ta réponse étaient les suivante:

En supposant tes données en A1:Ex de "Feuil1" (à adapter)
Saisir un N° de ligne dans la colonne A de "Feuil2" pour récupérer les
valeurs
de la ligne correspondante (valeur saisie) de "Feuil1" :
Dans le module de "Feuil2" :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column = 1 Then
On Error Resume Next
Application.EnableEvents = False
Sheets("Feuil1").Range("A" & zz & ":E" & zz).Copy
(Cells(zz.Row,


"A"))
Application.EnableEvents = True
End If
End Sub

AV

"Pako" éan.fr> a écrit dans le message news:
3f03060d$0$29677$
Bonjour,
J'ai enregistré des informations ligne par ligne sur un fichier Exel.
Comme il y a plusieurs centaines de ligne, j'ai inséré un numéro
devant



chaque ligne dans une cellule
Je veux récupérer une ligne "x" sur une autre feuille de ce classeur
simplement en tapant le numéro
Es ce possible
si oui comment faire ?
merci
















Avatar
Pako
Je veux copier la ligne complète jusqu'à la dernière cellule même s'il y a
du blanc
"michdenis" a écrit dans le message de news:

Bonjour Pako,

Il manque une information importante,

Si tu remplis sur une ligne 2 colonnes de données et
sur une autre ligne 5 colonnes de données...and so on,
comment savoir que tu as terminé la saisie des données pour une ligne
particulière pour exécuter la copie sur la feuil2. ?



P.S. Je sais c'est beaucoup de questions ... Mais il faut être précis dans
la description de ses manipulations pour en

arriver au résultat escompté !

Salutations!



"Pako" éan.fr> a écrit dans le message de
news:3f048da0$0$29648$

sur la troisième ligne en feuil 2

"michdenis" a écrit dans le message de news:

Bonjour Pako,

à quelle place tu veux récupérer tes informations en feuil2 ?
sur la même ligne que la feuille source 1 où tu as écrit tes données ?
sur la première ligne disponible en Feuil2 ?

Et si tu précisais ?

Salutations!


"Pako" éan.fr> a écrit dans le message de
news:3f048a40$0$29672$

Help Help Help
ça ne marche
J'explique :
J'ai une feuil 1
j'ai des numéros dans la colonne A de A3 à A2000 mais ces numéros ne
correspondent pas aux numéros de lignes
Pour chaque numéro j'insère des informations dans plusieurs cellules de
la


même ligne
Exemple: A58 = 50 B58 = Michel C58 = PDG ...etc
Sur la feuil 2
Je veux récupérer et faire apparaitre une seul ligne sur les 2000
simplement en écrivant un numéro dans une cellule
je choisi la cellule A1 feuil 2 et j'écris 50
et les infos çi-contre apparaissent: en B1 Michel en C1 PDG
...etc


c'est aussi simple que ça, mais je n'ai aucune idée comment faire
En espérant avoir été assez clair
je vous remerci d'avance

"michdenis" a écrit dans le message de news:
#
Bonjour Pako,

Essaie ceci :

Le principe, si tu changes une information dans la colonne A:A de la
feuille :"Feuil1", la ligne Ax:Ex sera copié vers la

feuille :Feuil2 sur la même ligne. De même, si tu effaces une entrée
dans


la colonne A:A de la feuille 1, l'équivalent de la
feuille 2 sera effacée.


'---------------------------------
Private Sub Worksheet_Change(ByVal zz As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(zz, Range("A:A"))
If Not Rg Is Nothing Then
Application.EnableEvents = False
For Each C In Rg
If C <> "" Then
Range("A" & C.Row & ":E" & C.Row).Copy
Sheets("Feuil2").Cells(C.Row, "A")

Application.EnableEvents = True
Else
Sheets("Feuil2").Range("A" & C.Row & ":E" & C.Row).Delete
End If
Next
Application.EnableEvents = True
End If
Set Rg = Nothing: Set C = Nothing
End Sub
'---------------------------------


Salutations!


"Pako" éan.fr> a écrit dans le message de
news:3f0466a3$0$29623$

Bonjour
merci d'avoir répondu à ma demande
malhereusement je n'arrive pas à mettre à execution la macro
Pourais tu me faire un exemple sur un fichier exel?
merci
La demande et ta réponse étaient les suivante:

En supposant tes données en A1:Ex de "Feuil1" (à adapter)
Saisir un N° de ligne dans la colonne A de "Feuil2" pour récupérer les
valeurs
de la ligne correspondante (valeur saisie) de "Feuil1" :
Dans le module de "Feuil2" :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column = 1 Then
On Error Resume Next
Application.EnableEvents = False
Sheets("Feuil1").Range("A" & zz & ":E" & zz).Copy
(Cells(zz.Row,


"A"))
Application.EnableEvents = True
End If
End Sub

AV

"Pako" éan.fr> a écrit dans le message news:
3f03060d$0$29677$
Bonjour,
J'ai enregistré des informations ligne par ligne sur un fichier
Exel.




Comme il y a plusieurs centaines de ligne, j'ai inséré un numéro
devant



chaque ligne dans une cellule
Je veux récupérer une ligne "x" sur une autre feuille de ce classeur
simplement en tapant le numéro
Es ce possible
si oui comment faire ?
merci





















Avatar
AV
Soluces en bal

AV