Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA Selection trop petite avec Déb = Fin =

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 !

Kouik Kouik jr

XLDnaute Occasionnel
Bonsoir,

j'ai le problème suivant:

Mon code ci dessous me sert a faire correspondre pour chaque nom donné un numéro qui lui convient. Le problème est que cette "correspondance automatisée" s'arrête a la ligne 144 et ne va pas au dela .(car la feuille Symbol ne contient que 144 lignes de données)

Le problème est avec le Fin=

Comment faire pour que la fin ne soit pas la ligne 144 mais plutot 300 ou 400 (cela me donne de la marge)

Je sais c'est compliqué , j'ai un peu de peine a expliquer mon problème


Merci d'avance pour vos conseils et suggestions

🙂



HTML:
Sub recherche()

'Recherche ID finales
    
    With Sheets("Symbol")
    Déb = 2
    Fin = .Range("a" & .Rows.Count).End(xlUp).Row
    End With
    With Sheets("Syt")
    I = 3
    Do While I < Fin
    For J = Déb To Fin
        If .Range("a" & I).Value = Sheets("Symbol").Range("a" & J).Value Then .Range("b" & I).Value = Sheets("symbol").Range("b" & J).Value
    Next J
    I = I + 1
    Loop
    End With

End Sub
 
Re : VBA Selection trop petite avec Déb = Fin =

Bonsoir,

Pas tres bien compris ton probleme.
Fin = .Range("a" & .Rows.Count).End(xlUp).Row => se redimensionne ...

Peux tu fournir un petit bout de fichier pour comprendre ce que tu veux faire ?
 
Re : VBA Selection trop petite avec Déb = Fin =

Le problème est avec le Fin=

Comment faire pour que la fin ne soit pas la ligne 144 mais plutot 300 ou 400 (cela me donne de la marge)

Si tu souhaites 400 lignes mets 400...

Code:
Sub recherche()

'Recherche ID finales
    
    With Sheets("Symbol")
    Déb = 2
  [B][COLOR=Blue]  Fin = 400 [/COLOR][/B]'.Range("a" & .Rows.Count).End(xlUp).Row
    End With
    With Sheets("Syt")
    I = 3
    Do While I < Fin
    For J = Déb To Fin
        If .Range("a" & I).Value = Sheets("Symbol").Range("a" & J).Value Then .Range("b" & I).Value = Sheets("symbol").Range("b" & J).Value
    Next J
    I = I + 1
    Loop
    End With

End Sub

Mais il doit y avoir une subtilité dans ta demande....
A+ à tous
 
- 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

Discussions similaires

Réponses
4
Affichages
763
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
907
Réponses
2
Affichages
413
Réponses
3
Affichages
924
  • Question Question
Microsoft 365 VBA Transpose
Réponses
11
Affichages
985
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…