Textbox VBA

Bonjour je bloque sur une condition

En colonne A j ai un mot alerte qui ouvre un userform avec des text box

Sub condition()
Dim Rep As Integer
    Dim CEL As Range
Application.DisplayAlerts = False
For Each CEL In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    If CEL Like "alerte" Then
    UserForm1.Show
    End If
    Next CEL[quote] la boucle ici ou sur l'userform ???[/quote]
    End Sub

userform1 Avec des textbox 1 à 6

j aimerai qu'ils soit rempli avec toute la ligne rencontré

userform1 > de B à G par bouton valider appelle userform 2

userform2 > H et bouton fermer (sauvegarder et fermer application

et autant de fois que cela est nécessaire quand il rencontre alerte avec une boucle

Private Sub TextBox2_Change()
Testbox2.Value[quote]?????[/quote]
End Sub

Sub UserForm1_initialize()
Dim Rep As Integer
Dim CEL As Range
Application.DisplayAlerts = False

For Each CEL In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    If CEL Like "alerte" Then 
       Testbox1 = CEL.Offset(0, 2)[quote]?????[/quote]   
    End If
    Next CEL
    End sub
    

Bonjour Panthera261

Il faut déclarer ta variable CEL en public

Option Explicit
Public CEL as Range

Sub condition()
  Dim Rep As Integer
  Application.DisplayAlerts = False
  For Each CEL In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    If CEL Like "alerte" Then
      UserForm1.Show
    End If
  Next CEL
End Sub

Et dans ton USF tu mets

Sub UserForm_initialize()
  Dim Ctl As Integer, LigSel As Long
  ' Ligne sélectionnée
  LigSel = CEL.Row
  ' Pour les textbox de 1 à 6
  For Ctl = 1 To 6
    Me.Controls("Textbox" & Ctl).Value = Cells(LigSel, 1 + Ctl).Value
  Next Ctl
End Sub

A+

Bonjour

deja tu change le "Sub UserForm1_initialize()"

par "Private Sub UserForm_Initialize()"

A+

Maurice

Merci erreur exécution 91

Variable objet ou de bloc with non définie

Bonjour

donne un modèle de ton fichier ca serait plus simple pour te répondre

A+

Maurice

Voila l idee c d'ouvrir l userform en automatique et non par bouton

Re,

Tu nous dis

panthera261 a écrit :

userform1 Avec des textbox 1 à 6

Donc si tel est bien le cas : Textbox1, Textbox2, etc...

Tu ne devrais pas avoir ceci

panthera261 a écrit :

Merci erreur exécution 91

Variable objet ou de bloc with non définie

Sinon mets nous ton fichier anonymisé

Edit : il t'arrive d'écouter ce qu'on te dit et mets !?

Le code de ton fichier n'est absolument pas changé

A+

Oui il y a truc que j ai pas du mettre

Re,

panthera261 a écrit :

Oui il y a truc que j ai pas du mettre

Comment veux-tu que sa fonctionnes alors

J'ai mis le fichier corrigé dans le post précédent

Je bloque je ne comprend pas vous avez mon fichier

bonjour

tu fait trop de faute

tu enlève tous les textbox change

et mettre ce code et tu test et a toi de le modifier

A+

Maurice

Private Sub UserForm_Initialize()
Dim L&, C&
  With Feuil1 'Sheets("Nom_De_La_Feuille")
    For L = 4 To Range("B" & Rows.Count).End(xlUp).Row
    If .Range("A" & L) Like "Alerte" Then
         For C = 1 To 6
            Controls("TextBox" & C).Value = .Cells(L, C + 1)
         Next
        Exit Sub
    End If
    Next
  End With
End Sub

Merci ça se rempli juste qu' il me manque le bouton suivant si plusieurs alerte ou ok pour fermer

Merci archer c nickel ca marche mais manque la suite si suivant et ouverture du premier userform

Je reeeeeemet le fichier

Voila mes modifications

sauf que j arrive pas ouvrir les userform

Re,

Oui ici : https://forum.excel-pratique.com/viewtopic.php?p=643331#p643331

Bonjour merci pour votre reponse car je le savais mais je ne sait ou le mettre

la box c'est trop petit

Sub Bouton1_Clic()
CONTRAT.Show
End Sub

donc j ai réussi a ouvrir l userform 1 alerte automatiquement mais sur le bouton SUITE j aurais aimé ouvrir le deuxieme USERFORM contrat

et sur l userform j aurais aimé la boucle des alertes si plusieurs

Bonjour mon fichier avance mais 2 problemes

1) c l userform qui s'ouvre mais le bouton suite n'est pas connecté cela devrait etre juste le bouton contrat

2) et le deuxieme probleme c'est le bouton suivant genre 2 alertes la j en ai qu'une

comment je dois faire SVP

merci par avance

Bonjour,

A-tu avancé sur ton fichier, depuis hier !?

Si oui, merci de mettre le dernier sur le fil

Oui mais il me manque le fil conducteur du voup9

Bonjour

on a du mal a comprendre se que tu veux faire

bon voila un nouveau projet et a toi de jouer

A+

Maurice