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

Trouver la première cellule vide

Créer une discussion

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
R

roisabri

XLDnaute Nouveau
Bonjour les amis,

J'essaye de faire une macro pour remplir un tableau ,
l'objectif est de remplir la première ligne vide par les informations arrivant de l'user form quand je change du couleur , dans mon cas j’utilise du rouge et jaune.
J'ai essayé avec exit for , pour qu'il ne l'exécute pas pour tous les lignes, ça marche qu'une seule fois!!

Code: 
Sub Verify()
Dim i As Integer
    If ActiveCell.Interior.Color = RGB(255, 0, 0) Then
        For i = 2 To 11
          
        If Cells(i, 1).value = "" Then
           Cells(i, 1).value = ActiveCell.offset(-1, 0).value
           Cells(i, 2) = ActiveCell.value
           Cells(i, 3) = Resume.value
        End If
        Exit For
        Next
    ElseIf ActiveCell.Interior.Color = RGB(255, 255, 0) Then
        For i = 12 To 60
        If Cells(i, 1).value = "" Then
        Cells(i, 1).value = ActiveCell.offset(-1, 0).value
        Cells(i, 2) = ActiveCell.value
        Cells(i, 3) = Resumevalue
        End If
        Exit For
        Next
    End If

End Sub

Merci d'avance
 
Trier par date Trier par votes
Re : Trouver la première cellule vide

Bonjour Roisabri,

Pourquoi utilises-tu une boucle pour trouver la première cellule vide de ton tableau?

Peut-être plutôt comme ceci:

Code: 
Sub Verify()
Dim i As Integer
    If ActiveCell.Interior.Color = RGB(255, 0, 0) Then

 i = Range("A1:A11").End(xlDown).Row

        'For i = 2 To 11
          
        'If Cells(i, 1).value = "" Then
           Cells(i, 1).value = ActiveCell.offset(-1, 0).value
           Cells(i, 2) = ActiveCell.value
           Cells(i, 3) = Resume.value
        'End If
        'Exit For
        'Next
    ElseIf ActiveCell.Interior.Color = RGB(255, 255, 0) Then

        i = Range("A12:A60").End(xlDown).Row

        'For i = 12 To 60
        'If Cells(i, 1).value = "" Then
        Cells(i, 1).value = ActiveCell.offset(-1, 0).value
        Cells(i, 2) = ActiveCell.value
        Cells(i, 3) = Resumevalue
        'End If
        'Exit For
        'Next
    End If

End Sub

Mais sans fichier exemple comme recommander par la charte de ce site, difficile de mieux t'aider 😉
 
Vote positif 0 Vote négatif
Re : Trouver la première cellule vide

Merci pour la réponse 🙂 VDAVID

EN effet, je dois sélection case d'élève dans une liste en changeant sa couleur en rouge ou jaune.
Après , dans une autre feuille resume, je dois mettre l’élève et ajouter des commentaires à partir de l'userform.
Le problème que je veux chaque fois que je lance la macro, il doit trouver la case vide!! or là il trouve qu'une seule fois à cause de Exit for, si je ne fais pas exit for, il sélection tous les cases vu à l’initiale sont vides.

Code: 
Sub Verify()
Dim i, j As Integer

    If ActiveCell.Interior.Color = RGB(255, 0, 0) Then
        For i = 1 To 10
        If Sheets("resume").Cells(i, 1).value = "" Then
        j = i + 1
        End If
        Next
        
        Sheets("resume").Cells(j, 1).value = ActiveCell.offset(-1, 0).value
        Sheets("resume").Cells(j, 2) = ActiveCell.value
        Sheets("resume").Cells(j, 3) = Summary.value  

End Sub
 
Vote positif 0 Vote négatif
Re : Trouver la première cellule vide

Re,

Si tu veux trouver la case vide à partir d'une boucle, tu peux utiliser une balise pour sortir de ta procédure une fois ta condition réalisée:

Tu peux tester:

Code: 
Sub Verify()
Dim i, j As Integer

    If ActiveCell.Interior.Color = RGB(255, 0, 0) Then
        For i = 1 To 10
        If Sheets("resume").Cells(i, 1).value = "" Then
        j = i + 1
        GoTo Borne
        End If
        Next
Exit Sub 'Sort de la procédure si aucune cellule vide n'a été trouvée
Borne:      'Dès que la condition est vérifiée, on sort de la boucle  
        Sheets("resume").Cells(j, 1).value = ActiveCell.offset(-1, 0).value
        Sheets("resume").Cells(j, 2) = ActiveCell.value
        Sheets("resume").Cells(j, 3) = Summary.value  

End Sub
 
Vote positif 0 Vote négatif
Re : Trouver la première cellule vide

Merci j'ai trouvé la solution. En fait je dois mettre Exit for avant End if et Next
Code: 
Sub Verify()
Dim i As Integer

    If ActiveCell.Interior.Color = RGB(255, 0, 0) Then
        For i = 1 To 10
        If Sheets("resume").Cells(i, 1).value = "" Then
  
        
        Sheets("resume").Cells(i, 1).value = ActiveCell.offset(-1, 0).value
        Sheets("resume").Cells(i, 2) = ActiveCell.value
        Sheets("resume").Cells(i, 3) = Summary.value  
For Exit
End if
Next
End Sub
 
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
703
TooFatBoy
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
247
nabilexcel2007
N
X
  • Question Question
Microsoft 365 compte à rebours avec application.OnTime (Résolu)
Réponses
9
Affichages
208
xabino
X
  • 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
A
  • Résolu(e)
XL 2019 Remplacer un mot et ajouter une couleur
Réponses
7
Affichages
513
Attila451
A
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
356
Electron24
P
  • Question Question
Microsoft 365 VBA et Segments TCD
Réponses
2
Affichages
427
patricko-13
P
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
580
kiki29
C
  • Question Question
Microsoft 365 Comptage cellule avec condition
Réponses
2
Affichages
185
CortoXls
C
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
302
job75
N
  • Question Question
Listbox click
Réponses
10
Affichages
531
ChTi160
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
238
mikeduff
M
B
  • Question Question
Microsoft 365 Macro pour création fichier csv
Réponses
8
Affichages
647
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
625
KRUG WOO
K
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
963
tnion
T
J
  • Question Question
Microsoft 365 Userform comboboxes indexés
Réponses
8
Affichages
270
jp26200
J
B
  • Question Question
Autres Problème d'adaptation du contenu d'une listbox
Réponses
7
Affichages
452
jurassic pork
S
  • Question Question
XL 2021 Listing Album Panini
Réponses
5
Affichages
477
job75
  • 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…