formule pour reproduire la ligne en cours

  • Initiateur de la discussion Initiateur de la discussion okparanoid
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

O

okparanoid

Guest
Bonsoir a tous !!

Je n'arrive pas a creer une formule pour ce que je souhaiterais faire :

J'ai un tableau avec plusieur lignes. Une ligne est un enregistrement.
En M1 je connais le numero de l'enregistrement qui m'interesse.

Je voudrais que sur la premiere ligne d'une autre feuille se reproduise automatiquement l'enregistrement correspondant a la ligne en cours referencee par m1.
J'ai essaye en utilisant la formule cellule et adresse mais je galere un peu...

Merci pour votre aide 🙂
 
Bonsoir OKParanoïd

Un petit essai

qui fonctionne oui oui mais dont le code est une peu ... enfin pas trop ... bon surement ...

Les puristes vont se ruer là-dessus et me corriger cette écriture hésitante (avec aide enregistreur)
Cela m'aura fait une petite leçon de plus ! 😱

@+GD [file name=OKParnoid.zip size=8994]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/OKParnoid.zip[/file]

Message édité par: Gérard DEZAMIS, à: 02/03/2006 23:14
 

Pièces jointes

Re OKP

Une petite suite histoire de ne pas me faire trop gronder...
Essaye
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range
For Each c In Range('A1:A' & Range('A65536').End(xlUp).Row)
If c.Value = Range('M1').Value Then
Range(c.Address).EntireRow.Copy
Application.Goto Reference:='Bil'
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.Goto Reference:='Bil'
Application.CutCopyMode = False
Application.ScreenUpdating = True
End If
Next c
End Sub

Cela permet de ne pas avoir recours à =ligne() qui me plaisait bien mais était un peu lourd.
La fin reste un peu bancale quand même.
De toute façon je vien d'atteindre mon niveau d'incompétence alors ... cette nuit peut-être ...

@+GD
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
23
Affichages
676
Réponses
3
Affichages
211
wDog66
W
Réponses
4
Affichages
310
Réponses
10
Affichages
641
Retour