recuperer le num de la ligne Fermé

Question

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

yg_be · Answer

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

cs_Le Pivert · Answer

Bonjour,

voir ici:

https://forums.commentcamarche.net/forum/affich-35921648-comparer-la-partie-majuscule-d-une-cellule-a-la-partie-majuscule-d-une-autre-cel#4

Recuperer le num de la ligne

2 réponses

Discussions similaires

Newsletters