Quelle ligne ?

phlaurent55

Nous a quittés en 2020

Repose en paix

• 29 Juin 2015

• #16

Re : Quelle ligne ?

Re,

pour avoir uniquement les numéros de ligne (au lieu de l'adresse des cellules concernées)

il suffit de remplacer la ligne suivante dans mon code:

Code:

If UCase(Target) = UCase(cellule) Then Cells(6, Range("IV6").End(xlToLeft).Column + 1) = Replace(cellule.Address, "$", "")

par:

Code:

If UCase(Target) = UCase(cellule) Then Cells(6, Range("IV6").End(xlToLeft).Column + 1) =cellule.Row

à+
Philippe

 

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 29 Juin 2015

• #17

Re : Quelle ligne ?

Bonjour Philippe,

C'était parfait pour l'adresse des cellules... c'est d'ailleurs ce qui m'a fait préférer la macro à la formule....

Clochard

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 29 Juin 2015

• #18

Re : Quelle ligne ?

c'était parfait pour l'adresse des cellules... C'est d'ailleurs ce qui m'a fait préférer la macro à la formule....

Cliquez pour agrandir...

Code:

=sierreur(adresse(petite.valeur(si($b6:$e100=$l6;ligne($b6:$e100));colonne(a:a));mod(petite.valeur(si($b6:$e100=$l6;ligne($b6:$e100)*10^5+colonne($b$6:$e$100));colonne(a:a));10^5);4);"")

a+

 

Vote positif 0 Vote négatif

Marc L

XLDnaute Occasionnel

• 29 Juin 2015

• #19

Lignes par code via formules …

Un exemple pour les lignes via un code à la demande (une fois la liste saisie, via un bouton)
utilisant les formules de calculs :
​

VB:

Sub Demo()
      Dim TDL&(2 To 5)
      For C& = 2 To 5:  TDL(C) = Cells(Me.Rows.Count, C).End(xlUp).Row:  Next
                           AD$ = Range("B6", Cells(Application.Max(TDL), 5)).Address
    Application.ScreenUpdating = False
    
    With [L6].CurrentRegion.Rows
        With .Offset(, 1)
             .ClearContents
             .Columns(1).Formula = "=COUNTIF(" & AD & ",L6)"
        End With
              
        For R& = 6 To .Item(.Count).Row
            With Cells(R, 13)
                If .Value Then .Resize(, .Value).FormulaArray = "=SMALL(IF(" & AD & "=$L" & R & ",ROW(" & AD & ")),COLUMN()-12)" Else .Value = ""
            End With
        Next
    End With
    
    With [L6].CurrentRegion
        .Formula = .Value
    End With
End Sub

_______________________________________________________________________________
Merci de cliquer sur J'aime ce post en bas à gauche de chaque message ayant aidé …

_______________________________________________________________________________
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)

​

 

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 29 Juin 2015

• #20

Re : Quelle ligne ?

Hey...

Y a pas a dire... j'suis très choyé ....

Franchement... j'adore la formule de David84.... ça répond vraiment à mon besoin

Merci beaucoup à vous tous...

Clochard

 

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 30 Juin 2015

• #21

Re : Quelle ligne ?

Salut David84

J'ai tenté d'adapter ta formule à mon vrai fichier mais... j'ai un ti-peu de difficulté à l'adapter...

Qu'en penses-tu?

Clochard

 

Pièces jointes

• Quelle ligne3.xls

  58 KB · Affichages: 23
• Quelle ligne3.xls

  58 KB · Affichages: 41
• Quelle ligne3.xls

  58 KB · Affichages: 39

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 30 Juin 2015

• #22

Re : Quelle ligne ?

Bonsoir @ tous,
COLONNE(Q:Q) renvoie 17, alors qu'il faut débuter par 1, donc tu peux remplacer par COLONNE(A:A) ou COLONNES($Q:Q).


@ + +

 

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 30 Juin 2015

• #23

Re : Quelle ligne ?

Bonsoir le forum....

Merci R@chid, c'est parfait...

Merci beaucoup

Clochard

 

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 30 Juin 2015

• #24

Re : Quelle ligne ?

Bonjour le Forum,

Encore un petit tour et puis j'aurais surement terminé avec cette formule...

J'arrive pas à mettre 3 conditions avec SI dans ma formule...

Merci beaucoup d'y regarder et bonne journée

Clochard

 

Pièces jointes

• Quelle ligne3.xls

  112.5 KB · Affichages: 23
• Quelle ligne3.xls

  112.5 KB · Affichages: 42
• Quelle ligne3.xls

  112.5 KB · Affichages: 44

Dernière édition: 30 Juin 2015

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 30 Juin 2015

• #25

Re : Quelle ligne ?

Bonjour,
=SI(X6="";"";la formule)
A+

 

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 30 Juin 2015

• #26

Re : Quelle ligne ?

Salut David84,

Excel n'accepte pas la formule avec 3 "SI" ????

"" Impossible d'entrer la formule spécifiée car elle utilise plus de niveaux d'imbrication que ne l'autorise le format de fichier actuel""

Clochard

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 30 Juin 2015

• #27

Re : Quelle ligne ?

Explique clairement ce que tu demande STP car je ne comprends pas ton attente.
A+

 

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 30 Juin 2015

• #28

Re : Quelle ligne ?

OK...

Avec la formule en question... cela me donne toutes les adresses de cellules où se situent les noms dans la colonne X....

Étant donné que Claude et Marie sont là presque qu'à tous les jours...j''ai ajouté =SI($X3="Marie";"";SI($X3="Claude";""; afin de ne pas les inclure dans la formule...

Lorsqu'il n'y a pas de nom dans la colonne X... j'aimerais que la formule ne fasse rien... j'ai tenté d'ajouter =SI(X3="";""; au début... mais Excel ne l'accepte pas...

En espérant avoir réussi l'explication....

Clochard

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 30 Juin 2015

• #29

Re : Quelle ligne ?

Non testé mais a priori =SI(OU($X3="Marie";$X3="Claude");"";la formule)
A+

 

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 30 Juin 2015

• #30

Re : Quelle ligne ?

Malheureusement... ça me retourne que la formule contient une erreur....

Clochard

 

Vote positif 0 Vote négatif