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

excel recherche de la premiere ligne vide a partir d'un emplacement preci

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion dad62
  • Date de début Date de début

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 !

S'inscrire
D

dad62

XLDnaute Occasionnel
bonjour le forum,
j’exécute une macro qui marche très bien qui me permet de déplacer des données dans une autre feuille,dans la première ligne vide d'une colonne ,comment faudrait-il modifier la macro pour que cela se fasse dans une plage de rangées? genre entre A1:A20
merci pour votre aide.
Sub rechquinc()
Dim NLig As Long
Dim ShtS As Worksheet
' Définir le nom de la feuille source
Set ShtS = Sheets("RECHERCHE")
' Avec la feuille de destination
With Sheets("Quincaille")
' Trouver la prochaine ligne vide de cette feuille
NLig = .Range("b" & Rows.Count).End(xlUp).Row + 1
' Inscrire les données dans la feuille de destination
.Range("A" & NLig) = ShtS.Range("E2")
.Range("B" & NLig) = ShtS.Range("E3")
.Range("D" & NLig) = ShtS.Range("E4")
.Range("G" & NLig) = ShtS.Range("E5")
.Range("E" & NLig) = ShtS.Range("E6")
' Etc ....
End With
' Effacer les variables objet
Set ShtS = Nothing
End Sub
 
Trier par date Trier par votes
Re : excel recherche de la premiere ligne vide a partir d'un emplacement preci

Bonjour,

pas sûr d'avoir bien compris ton souci, regarde peut être ceci, espérant que cela puisse t'aider ...

Code: 
Dim x As Range
Set x = Range("A1:A20").Find("", Range("A20"), xlValues, , 1, 1, 0)
If Not x Is Nothing Then MsgBox x.Row

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : excel recherche de la premiere ligne vide a partir d'un emplacement preci

merci Pierrot93 pour la réponse mais je ne suis pas balaise en vba, la macro que j'ai poster me vient du forum de excel-download,ou doit-je placer le bout de code que tu a donné?
 
Vote positif 0 Vote négatif
Re : excel recherche de la premiere ligne vide a partir d'un emplacement preci

Re,

bah... en lieu et place de cette instruction :
Code: 
NLig = .Range("b" & Rows.Count).End(xlUp).Row + 1

mais il y aura lieu de supprimer la "msgbox" dans le code que je t'ai donné..... A noter que dans l'éditeur vba, la touche F1 te donnera des infos sur les codes utilisés....
 
Vote positif 0 Vote négatif
Re : excel recherche de la premiere ligne vide a partir d'un emplacement preci

Re

le code que je t'ai proposé adapté à ta macro... mais suis resté sur le problème initial, pas été plus loin....

Code: 
Sub rechquinc()
Dim x As Range
Dim NLig As Long
Dim ShtS As Worksheet
' Définir le nom de la feuille source
Set ShtS = Sheets("RECHERCHE")
' Avec la feuille de destination
With Sheets("sdpu")
Set x = .Range("A3:A22").Find("", .Range("A22"), xlValues, , 1, 1, 0)
If Not x Is Nothing Then
    NLig = x.Row
Else
    Exit Sub
End If
' Inscrire les données dans la feuille de destination
.Range("A" & NLig) = ShtS.Range("E2")
.Range("B" & NLig) = ShtS.Range("E3")
.Range("D" & NLig) = ShtS.Range("E4")
.Range("G" & NLig) = ShtS.Range("E5")
.Range("E" & NLig) = ShtS.Range("E6")
' Etc ....
End With
' Effacer les variables objet
Set ShtS = Nothing
End Sub


Edition : argument "after" de la méthode "find" modifié
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
459
Abi23
A
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
921
spike29
S
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
332
escudo
E
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
343
AlCapone
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
642
job75
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
688
MBEPID
M
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
840
Corentin26270
C
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
671
Oneida
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
743
NONO14
N
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
528
PHIL37
P
G
  • Résolu(e)
XL 2010 Obliger la validation d'un bouton d'option.
Réponses
8
Affichages
467
gillesda
G
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
2 K
kiki29
F
  • Question Question
XL 2016 copier des fichiers dans des sous dossiers a partir de case a cocher sous excel
2
Réponses
17
Affichages
2 K
Felipe54
F
S
  • Question Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
1 K
fanch55
N
  • Résolu(e)
Microsoft 365 Calcul de plages horaires
2 3 4
Réponses
49
Affichages
2 K
NONO14
N
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
401
NONO14
N
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
2 K
NONO14
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…