Menu

Recuperer le num de la ligne [Fermé]

Messages postés
109
Date d'inscription
mercredi 18 avril 2018
Dernière intervention
18 mars 2019
-
Bonjour,

voila un code que jai mis pour recuperer le numero de la ligne

ce code ne fonctionne que si le contenu de la cellule A(NOM prenom) est le mm que dans les cellule C (NOM prenom)







[/contents/446-fichier-sub Sub] tester()

Dim i, Lne As Integer

    For i = 24 To 100

    If Range("C" & i).Value = Range("A1").Value Then Lne = i

    Range("b1") = Lne - 23
    
    If Range("C" & i).Value = Range("A2").Value Then Lne1 = i
    
    Range("b2") = Lne1 - 23
    
    If Range("C" & i).Value = Range("A3").Value Then Lne2 = i
    
    Range("b3") = Lne2 - 23
    
    If Range("C" & i).Value = Range("A4").Value Then Lne3 = i
    
    Range("b4") = Lne3 - 23
    
    If Range("C" & i).Value = Range("A5").Value Then Lne4 = i

    Range("b5") = Lne4 - 23
    
    If Range("C" & i).Value = Range("A6").Value Then Lne5 = i
    
    Range("b6") = Lne5 - 23
    
    If Range("C" & i).Value = Range("A7").Value Then Lne6 = i
    
    Range("b7") = Lne6 - 23
    
    If Range("C" & i).Value = Range("A8").Value Then Lne7 = i

    Range("b8") = Lne7 - 23
    
    If Range("C" & i).Value = Range("A9").Value Then Lne8 = i
  
    Range("b9") = Lne8 - 23
    
    If Range("C" & i).Value = Range("A10").Value Then Lne9 = i
    
    Range("b10") = Lne9 - 23
    
    If Range("C" & i).Value = Range("A11").Value Then Lne10 = i
   
    Range("b11") = Lne10 - 23
    
    If Range("C" & i).Value = Range("A12").Value Then Lne11 = i
    
    Range("b12") = Lne11 - 23
    
    If Range("C" & i).Value = Range("A13").Value Then Lne12 = i
   
    Range("b13") = Lne12 - 23
    
    If Range("C" & i).Value = Range("A14").Value Then Lne13 = i
    
    Range("b14") = Lne13 - 23
    
    If Range("C" & i).Value = Range("A15").Value Then Lne14 = i
    
    Range("b15") = Lne14 - 23
    
    If Range("C" & i).Value = Range("A16").Value Then Lne15 = i
    
    Range("b16") = Lne15 - 23
    
     If Range("C" & i).Value = Range("A17").Value Then Lne16 = i
    
    Range("b17") = Lne16 - 23
    
    If Range("C" & i).Value = Range("A18").Value Then Lne17 = i
    
    Range("b18") = Lne17 - 23
    
    
    If Range("C" & i).Value = Range("A19").Value Then Lne18 = i
    
    Range("b19") = Lne18 - 23
    
    If Range("C" & i).Value = Range("A20").Value Then Lne19 = i
    Next i
    Range("b20") = Lne19 - 23
    
End Sub




maintenant je veux que mon code verifie que la partie en MAJUSCULE dans les cellule A et C c veut dire
si
la majuscule dans la cellule A se trouve aussi dans la cellule C (a partie de C 24) le code renvoie le numero de la ligne

exemple

dans range("a1") on enregistre VALENTIN Jerom
dans range("c24") on enregistre Jerom VALENTIN

je veux que le code soit excuter ca v dire recuperer le numero de la ligne, qui est dans ce cas 24

je ne sais pas si c possible ou nn

merci davance
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
5895
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 mars 2019
409
1
Merci
Bonjour,

voir ici:

https://www.commentcamarche.net/forum/affich-35921648-comparer-la-partie-majuscule-d-une-cellule-a-la-partie-majuscule-d-une-autre-cel#4

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 49037 internautes nous ont dit merci ce mois-ci

Messages postés
7565
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 mars 2019
450
0
Merci
bonjour,
je n'ai pas compris, il me semble que VALENTINJ est différent de JVALENTIN.
par ailleurs, ne peut-on pas simplifier ton code ainsi:
Sub tester()
Dim i As Long, j As Long
For i = 24 To 100
    For j = 1 To 23
        If Cells(i, 3) = Cells(j, 1) Then
            Cells(j, 2) = i - 23
        End If
    Next j
Next i
End Sub
blalaa
Messages postés
109
Date d'inscription
mercredi 18 avril 2018
Dernière intervention
18 mars 2019
-
bonjour

effectivement vous avez raison

ce que je souhaite plutot c que macellule commence toujours par le NOM mm si moi j'enregistre le prenom en premier


exmple

Ludovic QUENTIN
Ludovic c'est prenom
QUENTIN c'est le NOM


ce que je souhaite moi si c'est possible c'est de inverser l'ordre ca veut dire commencer tjrs par la majuscule de contenu qui est le NOM

exemple
jecris dans la cellule A =Ludovic QUENTIN
je souhaite que la cellule A = QUENTIN Ludovic

c veut dire on commence toujours par le NOM qui est en majuscule

je vous remercie pour votre reponse