Vba : aller chercher une cellule qui se trouve n ligne plus bas.
Fermé
seblg29
-
31 juil. 2015 à 11:36
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 31 juil. 2015 à 13:16
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 31 juil. 2015 à 13:16
A voir également:
- Vba : aller chercher une cellule qui se trouve n ligne plus bas.
- Incompatibilité de type vba ✓ - Forum Programmation
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba dernière colonne non vide ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
1 réponse
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 776
31 juil. 2015 à 13:16
31 juil. 2015 à 13:16
Bonjour,
Essaies ce code :
Essaies ce code :
Option Explicit
Sub xxx()
Dim cel As Range
'Trouver la prochaine cellule contenant "nom"
Set cel = Cells.Find(What:="nom", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
'Si pas trouvé ...
If cel Is Nothing Then
' afficher un message à l'utilisateur
MsgBox "Pas trouvé !", vbCritical
' et terminer
Exit Sub
End If
'Définir le cellule 17 lignes plus bas
Set cel = cel.Offset(17)
'Si besoin (et uniquement si besoin, ce qui est rarement le cas) : la sélectionner
cel.Select
End Sub
