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

Recherche 1ere cellule vide

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion explo_z
  • 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
E

explo_z

XLDnaute Nouveau
Bonjour à toutes et à tous,

Je cherche à insérer une boucle dans une boucle (voir code si après). Je souhaite copier le nom de feuilles présentes dans une colonne (1ere partie du code) et insérer ce nom dans une cellule vide (2eme partie). Mais voilà je rencontre un problème car le nom de la feuille s'inscrit plusieurs fois alors que je désire le voir apparaitre qu'une seule fois puis passer au second nom. J'ai localisé le problème mais n'arrive pas à trouver la solution (Exit Sub ne convient pas car bien entendu cela arrête complètement la procédure).

Merci d'avance ... 🙂

'Report des noms des feuilles restantes
Dim R As Range
'Boucle sur chaque cellule de la plage NUM
For Each R In Range("R2:R309")
'Si la cellule contient la valeur <> "", on poursuit ....
If R.Value <> "" Then
Dim val As Variant
Dim f As Variant
f = R.Offset(0, 3).Value '3 colonne après le test
val = R.Offset(0, 2).Value '2 colonne apres le test
Sheets(f).Select

'inscription du nom dans la premiere cellule vide
lignes = Array(19, 22, 25, 28, 31, 34, 37)
colonnes = Array(4, 10, 16, 22)
For c = 0 To UBound(colonnes)
For l = 0 To UBound(lignes)
If Cells(lignes(l), colonnes(c)).Value = "" Then
Cells(lignes(l), colonnes(c)).Value = val
Cells(lignes(l), colonnes(c)).Offset(0, -1).FormulaR1C1 = "TRUE" '<-probleme ICI 😡
Exit For
Exit For
End If
Next
Next
End If
Next R
 
Dernière édition:
Trier par date Trier par votes
Re : Recherche 1ere cellule vide

Bonjour


Si on respecte les conventions
(Utilises les balises BB CODE comme illustré ci-dessous, ton code VBA sera plus agréable à lire)

Code: 
'Report des noms des feuilles restantes
[COLOR=Blue]Dim R As Range
Dim val As Variant
 Dim f As Variant[/COLOR]
            'Boucle sur chaque cellule de la plage NUM
            For Each R In Range("R2:R309")
            'Si la cellule contient la valeur <> "", on poursuit  ....
                If R.Value <> "" Then
f = R.Offset(0, 3).Value '3 colonne après le test
val = R.Offset(0, 2).Value '2 colonne apres le test
Sheets(f).Select

'inscription du nom dans la premiere cellule vide
lignes = Array(19, 22, 25, 28, 31, 34, 37)
colonnes = Array(4, 10, 16, 22)
For c = 0 To UBound(colonnes)
For l = 0 To UBound(lignes)
  If Cells(lignes(l), colonnes(c)).Value = "" Then
     Cells(lignes(l), colonnes(c)).Value = val
     Cells(lignes(l), colonnes(c)).Offset(0, -1).FormulaR1C1 = "TRUE"  '<-probleme ICI :mad:
     Exit For
     Exit For
   End If
 Next
 Next
 End If
Next R
 
Vote positif 0 Vote négatif
Re : Recherche 1ere cellule vide

re,
ceci est un exemple de code pour rechercher la première cellule vide a toi de l'adapter à ton code
de plus si tu veux aller a un endroit bien précis dans ton code tu peux utiliser
Code: 
if "condition a comparer" then goto ici
'ensuite tu place le mot ici suivi de :une ligne devant la ligne ou tu veux que le code continu
ici:
Au plaisir
Edit:
bonsoir Staple1600 on c'est encore croisé A+
 
Vote positif 0 Vote négatif
Re : Recherche 1ere cellule vide

Bon soit je ne comprend pas soit tu ne comprend pas:
Code: 
'Report des noms des feuilles restantes
Dim R As Range
Dim val As Variant
 Dim f As Variant
            'Boucle sur chaque cellule de la plage NUM
            For Each R In Range("R2:R309")
            'Si la cellule contient la valeur <> "", on poursuit  ....
                If R.Value <> "" Then
f = R.Offset(0, 3).Value '3 colonne après le test
val = R.Offset(0, 2).Value '2 colonne apres le test
Sheets(f).Select

'inscription du nom dans la premiere cellule vide
lignes = Array(19, 22, 25, 28, 31, 34, 37)
colonnes = Array(4, 10, 16, 22)
For c = 0 To UBound(colonnes)
For l = 0 To UBound(lignes)
[COLOR="Red"]if  Cells(lignes(l), colonnes(c)).Value = val then goto ici[/COLOR]
 If Cells(lignes(l), colonnes(c)).Value = "" Then
     Cells(lignes(l), colonnes(c)).Value = val
     Cells(lignes(l), colonnes(c)).Offset(0, -1).FormulaR1C1 = "TRUE"  '<-probleme ICI :mad:
     Exit For
     Exit For
   End If
[COLOR="Red"]ici: [/COLOR]
Next
 Next
 End If
Next R

Voila ce que je comprend
A+
 
Vote positif 0 Vote négatif
Re : Recherche 1ere cellule vide

Re, bonsoir fhoest


Pour trouver la 1ère cellule vide d'une feuille

Code: 
Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Offset(1).Select

explo_z
Si tu postais un fichier exemple, on pourrait tester in situ
 
Vote positif 0 Vote négatif
Re : Recherche 1ere cellule vide

sur quel ligne de code tu inscrit le nom ???
Code: 
Par défaut Re : Recherche 1ere cellule vide
Bon soit je ne comprend pas soit tu ne comprend pas:
Code:

'Report des noms des feuilles restantes
Dim R As Range
Dim val As Variant
 Dim f As Variant
            'Boucle sur chaque cellule de la plage NUM
            For Each R In Range("R2:R309")
            'Si la cellule contient la valeur <> "", on poursuit  ....
                If R.Value <> "" Then
f = R.Offset(0, 3).Value '3 colonne après le test
val = R.Offset(0, 2).Value '2 colonne apres le test
Sheets(f).Select

'inscription du nom dans la premiere cellule vide
lignes = Array(19, 22, 25, 28, 31, 34, 37)
colonnes = Array(4, 10, 16, 22)
For c = 0 To UBound(colonnes)
For l = 0 To UBound(lignes)
if  Cells(lignes(l), colonnes(c)).Value = val then exit for' ou goto ici
 If Cells(lignes(l), colonnes(c)).Value = "" Then
     Cells(lignes(l), colonnes(c)).Value = val
     Cells(lignes(l), colonnes(c)).Offset(0, -1).FormulaR1C1 = "TRUE"  '<-probleme ICI :mad:
     Exit For
     Exit For
   End If
Next
'ici: 

 Next
 End If
Next R

Voila ce que je comprend
A+
__________________
Celui qui croit tout connaitre, ne connait sans doute pas grand chose.
Chacun apporte son savoir, mais on a tous tout à apprendre .... fhoest
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Recherche 1ere cellule vide

Malheureusement je ne peux pas poster un fichier mais je vous joins une image pour que vous puissiez comprendre le résultat non souhaité
 

Pièces jointes

  • Image 1.jpg
    15.4 KB · Affichages: 78
  • Image 1.jpg
    15.4 KB · Affichages: 94
  • Image 1.jpg
    15.4 KB · Affichages: 92
Vote positif 0 Vote négatif
Re : Recherche 1ere cellule vide

Re

Et pourquoi ne peux-tu pas poster un fichier ?

(Par exemple , un fichier exemple que tu créerais maintenant
avec des données fictives et ou tu ajouterais le code de ta macro)
 
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

F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
707
TooFatBoy
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
249
nabilexcel2007
N
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
613
Lu76Fer
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
1 K
Webperegrino
W
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
652
piga25
B
  • Question Question
Autres Problème d'adaptation du contenu d'une listbox
Réponses
7
Affichages
453
jurassic pork
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
581
kiki29
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
619
Piment
P
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
302
job75
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
630
KRUG WOO
K
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
332
lestoiles1
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
350
patricktoulon
D
  • Question Question
XL 2010 Recherche cellule vide sur une ligne
Réponses
9
Affichages
507
job75
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
353
Lau01150
L
C
  • Résolu(e)
XL 2021 Sauvegarder répertoire/sous répertoire un peu volumineux 2 Go
Réponses
7
Affichages
359
Claudinedu13
C
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
737
VBA_dev_Anne_Marie
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
3 K
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…