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

Autres Affectation à une cellule

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
F

FOUQUET Yves

XLDnaute Occasionnel
Bonjour,

Quelqu'un peut me dire pourquoi dans les lignes ci dessous
avec la variable "ligne1" il ne m'écrit rien dans la cellule
et avec un nombre il écrit bien "OUI" dans la cellule!
Et pourtant au débogueur il passe bien sur la ligne de code...

Je craque.

merci d'avance
Yves


VB: 
Private Sub commandbutton2_Click()
Dim PathName As String
Dim i As Integer
Dim ligne1 As Integer

ligne1 = 1
Sheets("Effectif").Activate
Set Ws = Sheets("Effectif")                                               '--- comparer nom et prenom ---
For j = 2 To Ws.Range("B" & Rows.Count).End(xlUp).Row

ligne1 = ligne1 + 1                                                          ' --- saute la ligne de titre ---
nom_effectif1 = Sheets("effectif").Range("B" & j)           ' récupère nom dans la liste effectif

If nom_effectif1 = UserForm9.nom Then
prenom_effectif1 = Sheets("effectif").Range("C" & j)
      If prenom_effectif1 = UserForm9.prenom Then
      relance = "OUI"
    Range("O" & ligne1).Value = relance
          '  Range("O" &15).Value = relance                                 et là ça marche!!!
     Exit For
     End If
End If
Next
End sub
 
Trier par date Trier par votes
Bonjour,

A vue de nez, comme il n'y a pas de classeur exemple je dirais:

VB: 
Private Sub commandbutton2_Click()
    Dim PathName As String
    Dim i As Integer
    Dim ligne As Long, derLigne As Long
    Dim Nom_effectif As String, Prenom_effectif As String
    With Sheets("Effectif")
        .Activate
        derLigne = .Range("B" & Rows.Count).End(xlUp).Row                             '--- comparer nom et prenom ---
        For ligne = 2 To derLigne                                                         ' --- saute la ligne de titre ---
            Nom_effectif = .Range("B" & ligne)           ' récupère nom dans la liste effectif
            Prenom_effectif = .Range("C" & ligne)
            If nom_effectif = Me.nom And Prenom_effectif = Me.prenom Then
                .Range("O" & ligne) = "OUI"
                Exit For
            End If
        End If
    Next
End Sub

Les variables Nom_Effectif et Prenom_Effectif ne sont pas indispensables. Le test pourrait être :
If .Range("B" & ligne) = Me.nom And .Range("C" & ligne) = Me.prenom Then
....
End if

J'ai supposé que cette macro était une macro du UserForm9 aussi ai-je remplacé sont nom par Me (variable objet représentant le UserForm parent des contrôles)

Bonne continuation
 
Vote positif 0 Vote négatif
Merci de la réponse. Je précise le problème.
J'envoie un mail de relance à des "effectif" de'une feuille.
Pour cela je trie les "effectif" par année de dernière cotisation dans une nouvelle feuille "rappel_c" .
Le trie se fit dans UserForm9, car c'est là que l'on choisit l'année à trier. J'ai donc en sortie du trie une nouvelle feuille avec juste les personnes concernées par l'année saisie.

Ensuite je choisis individuellement dans cette nouvelle feuille les personnes triées à qui j'envoie le mail..
Cela se fait dans Userforme10.
La personne est sélectionnée dans un combobox. puis une procédure Outlook.

Quand je relance par mail,une de ces personnes triées je doit marquer dans "effectif" initial que je les ai déjà relancés d'ou le passage de "NON" à "OUI".
Donc je compare le nom et prénom "variables publiques" de la nouvelle feuille "rappel_c" afin de retrouver dans "effectif" la personne concernée par l'envoi du mail et là je passe la cellule de contrôle à "OUI".

En sortie de procédure je delete la nouvelle feuille crée en entrée "rappel_c".

Conclusion: pour l'année XXXX sélectionnée dans Userform9, je sélectionne des personnes que je stocke dans une nouvelle feuille élève "rappel_c".
A partir de cette nouvelle feuille j'envoie un mail à qui je veux et pour savoir que je leur ai envoyé le mail je les passe de NON à OUI dans la feuille maître initiale "effectif".
Et c'est à cette comparaison que je ne vois pas pourquoi cela fonctionne avec un nombre et pas avec une variable contenant ce nombre!
 
Vote positif 0 Vote négatif
Ca y est j'ai trouvé l'erreur. Cela venait des variables publiques qui n'avaient pas lieu d'être. Je n'avais qu'à comparer des variables dans le même Userform10.
C'est toujours pareil, on laisse tomber quelques temps et quand on y retourne les choses sautent au yeux.
merci tout de même d'avoir répondu.
A la prochaine.
Yves
 
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
XL 2021 probleme dans la macro
Réponses
4
Affichages
579
kiki29
  • Question Question
Microsoft 365 selectionner cellule via un combobox
Réponses
3
Affichages
265
job75
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
961
tnion
T
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
671
Oneida
  • Question Question
Microsoft 365 VBA ADODB doublons
Réponses
1
Affichages
264
dysorthographie
  • 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
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
509
un internaute
U
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
232
mikeduff
M
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
163
MATLEA
M
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
329
lestoiles1
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
702
TooFatBoy
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
449
sylvanu
C
  • Question Question
Microsoft 365 Supprimer ligne selon contenu cellule (résolu)
Réponses
7
Affichages
277
job75
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
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
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
C
  • Résolu(e)
XL 2016 Répartir dans des Groupes d'Effectifs Aléatoires ... mais pas trop
Réponses
2
Affichages
502
crocrocro
C
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
608
Lu76Fer
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…