Modification cellules suivant conditions (VBA)

T

Tomd

XLDnaute Nouveau
Bonjour à tous,

Je souhaiterai modifier des cellules suivant une condition ( apparition d'une valeur dans la première colonne). Lorsque cette condition apparait modifier les cellules sur la ligne ou apparait la valeur recherché.
Si cette condition n'est pas rempli, créer une nouvelle ligne avec modifications des cellules 1,2,3,...

Actuellement avec la macro que j'ai crée lorsque la valeur apparait. La cellule de la première colonne disparait au profit du numéro de ligne ou elle se trouvait. Et une nouvelle ligne apparait en reprenant les informations modifié.

Lorsque la condition n'apparait pas j'ai erreur 91. Car la condition n'est pas rempli or je souhaiterai créer une ligne.

La macro se lance au travers d'un bouton et les informations sont transmissent grâce à un userform.
 

Pièces jointes

  • test.xlsm
    68.7 KB · Affichages: 52
Dernière édition:
Trier par date Trier par votes
vgendron

vgendron

XLDnaute Barbatruc
Hello

Essaies ceci
Code: 
Private Sub CommandButton1_Click()

Dim supplier As String
supplier = Worksheets("supplier form").Range("B1")

Dim Z As Range
  
Sheets("informations").Activate
Set Z = [A3:A1048576].Find(what:=supplier)
  
If Not Z Is Nothing Then
    Ligne = Z.Row
Else
    Ligne = Range("A1048576").End(xlUp).Offset(1, 0).Row
End If

   'Z = [A3:A1048576].Find(what:=supplier, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows).Row
  
    Cells(Ligne, 1) = Worksheets("supplier form").Range("B1").Value
    Cells(Ligne, 2) = Worksheets("supplier form").Range("F1").Value
    Cells(Ligne, 3) = TextBox1.Value
    Cells(Ligne, 4) = TextBox2.Value
    Cells(Ligne, 5) = TextBox3.Value
    Cells(Ligne, 6) = TextBox4.Value
    Cells(Ligne, 7) = TextBox5.Value
    Cells(Ligne, 8) = TextBox6.Value
    Cells(Ligne, 9) = TextBox7.Value
    Cells(Ligne, 10) = TextBox8.Value
    Cells(Ligne, 11) = TextBox9.Value

Sheets("Supplier Form").Activate
  
End Sub
 
Vote positif 0 Vote négatif
T

Tomd

XLDnaute Nouveau
Bonjour,

Merci beaucoup vgendron ta solution fonctionne très bien.

J'ai un autre soucis je souhaiterai à l'ouverture de la macro afficher dans les text box / combobox la valeur dans ma base de données.
J'ai également deux combo box dont je souhaiterai définir les valeurs.

Puis-je faire une seul macro ou je dois diviser en 2 voir +?

Pour l'instant j'ai ceci:

Code: 
Private Sub UserForm_Initialize()
ComboBox1.AddItem "Riri"
ComboBox1.AddItem "Fifi"
ComboBox1.AddItem "Loulou"
End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem "1"
ComboBox1.AddItem "2"
ComboBox1.AddItem "3"
End Sub

Private Sub UserForm_Activate()
   
Dim supp As String
supp = Worksheets("supplier form").Range("B1")

    Dim Z As Range
Sheets("informations").Activate
Set Z = [A3:A1048576].Find(what:=supp)
ligne = Z.Row

   'Z = [A3:A1048576].Find(what:=supp, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows).Row
  
  
TextBox1 = Cells(ligne, 3).Value
TextBox2 = Cells(ligne, 4).Value
TextBox3 = Cells(ligne, 5).Value
TextBox4 = Cells(ligne, 6).Value
ComboBox1 = Cells(ligne, 9).Value
ComboBox2 = Cells(ligne, 10).Value
TextBox5 = Cells(ligne, 7).Value
TextBox6 = Cells(ligne, 8).Value
TextBox10 = Cells(ligne, 11).Value
TextBox11 = Cells(ligne, 14).Value
TextBox12 = Cells(ligne, 15).Value
TextBox13 = Cells(ligne, 16).Value
TextBox14 = Cells(ligne, 12).Value
TextBox15 = Cells(ligne, 13).Value


Sheets("Supplier Form").Activate

  
End Sub
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
il faudrait que tu renvoies ton fichier qui contient ces fameux combobox..
et expliquer quelles sont les données que tu saisies et ou..

je présume qu'à l'ouverture du formulaire
tu vas sélectionner un nom dans un combobox (initialisé avec les noms déja existants)
ensuite, automatiquement, le formulaire va chercher les données déjà remplies
puis tu pourras modifier des valeurs. et au clic "bouton modifier", la base se met à jour avec les nouvelles data..
 
Vote positif 0 Vote négatif
T

Tomd

XLDnaute Nouveau
Le combo box 1 va devoir afficher les données suivantes :'Key and rating system'!E2:E13;
Le combo box 2 va devoir afficher les données suivantes : 'Key and rating system'!G2:G4;
 

Pièces jointes

  • test.xlsm
    70 KB · Affichages: 55
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
'Key and rating system'!E2:E13;
Cliquez pour agrandir...
??? c'est ou ca?

et dans ton code. je vois plusieurs fonction initialize et du activate..
une seule suffit.. d'ailleurs. sinon ca plante.
à partir du moment ou tu fais un formulaireshow, tu l'initialises. et c'est tout..

de plus, je ne comprend pas ce que sont tes combobox.. tu les initialises avec les suppliers..

regarde le code ci joint
Code: 
Private Sub UserForm_Initialize()
'on récupère le supplier en B1
supplier = Worksheets("supplier form").Range("B1")
' et on rempli les Textbox et combo avec les data de la feuille informations
With Sheets("informations")
    Set Z = .[A3:A1048576].Find(what:=supplier)
    If Not Z Is Nothing Then
        Ligne = Z.Row
        TextBox1 = .Cells(Ligne, 3)
        TextBox2 = .Cells(Ligne, 4)
        TextBox3 = .Cells(Ligne, 5)
        TextBox4 = .Cells(Ligne, 6)
        TextBox5 = .Cells(Ligne, 7)
        TextBox6 = .Cells(Ligne, 8)
        ComboBox1 = .Cells(Ligne, 9).Value
        ComboBox2 = .Cells(Ligne, 10).Value
        TextBox7 = .Cells(Ligne, 11)
        TextBox8 = .Cells(Ligne, 12)
        TextBox9 = .Cells(Ligne, 13)
    Else
        MsgBox "supplier inexistant, va donc être créé"
    End If
End With
End Sub
Private Sub CommandButton2_Click()
    'pour quitter le userform
    Unload Me
End Sub

Private Sub CommandButton1_Click()
'clic sur bouton "modifier"
Dim supplier As String
Dim Z As Range
   
'on récupère le nom du supplier en B1
supplier = Worksheets("supplier form").Range("B1")
With Sheets("informations")
    Set Z = .[A3:A1048576].Find(what:=supplier)
    's'il existe déjà, on récupère sa ligne
    If Not Z Is Nothing Then
        Ligne = Z.Row
    'sinon on se place à la fin
    Else
        Ligne = .Range("A1048576").End(xlUp).Offset(1, 0).Row
    End If
   
    'on recopie les textbox dans la feuille Informations
    .Cells(Ligne, 1) = Worksheets("supplier form").Range("B1").Value
    .Cells(Ligne, 2) = Worksheets("supplier form").Range("F1").Value
    .Cells(Ligne, 3) = TextBox1.Value
    .Cells(Ligne, 4) = TextBox2.Value
    .Cells(Ligne, 5) = TextBox3.Value
    .Cells(Ligne, 6) = TextBox4.Value
    .Cells(Ligne, 7) = TextBox5.Value
    .Cells(Ligne, 8) = TextBox6.Value
    .Cells(Ligne, 9) = TextBox7.Value
    .Cells(Ligne, 10) = TextBox8.Value
    .Cells(Ligne, 11) = TextBox9.Value
End With
   
End Sub
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
correctif pour les correspondances Text Box - Lignes
et . pourrais tu mettre un formulaire sans le message d'erreur qui apparaissait quand tu as fait l'impression d'écran.. c'est pas joli du tout et ca aide pas à se concentrer sur l'essentiel

Code: 
'*******************************
Private Sub UserForm_Initialize()

'on récupère le supplier en B1
supplier = Worksheets("supplier form").Range("B1")
' et on rempli les Textbox et combo avec les data de la feuille informations
With Sheets("informations")
    Set Z = .[A3:A1048576].Find(what:=supplier)
    If Not Z Is Nothing Then
        Ligne = Z.Row
        TextBox1 = .Cells(Ligne, 3)
        TextBox2 = .Cells(Ligne, 4)
        TextBox3 = .Cells(Ligne, 5)
        TextBox4 = .Cells(Ligne, 6)
        TextBox5 = .Cells(Ligne, 7)
        TextBox6 = .Cells(Ligne, 8)
        ComboBox1 = .Cells(Ligne, 9).Value
        ComboBox2 = .Cells(Ligne, 10).Value
        TextBox7 = .Cells(Ligne, 11)
        TextBox8 = .Cells(Ligne, 12)
        TextBox9 = .Cells(Ligne, 13)
    Else
        MsgBox "supplier inexistant, va donc être créé"
    End If
End With
End Sub
Private Sub CommandButton2_Click()
    'pour quitter le userform
    Unload Me
End Sub

Private Sub CommandButton1_Click()
'clic sur bouton "modifier"
Dim supplier As String
Dim Z As Range
   
'on récupère le nom du supplier en B1
supplier = Worksheets("supplier form").Range("B1")
With Sheets("informations")
    Set Z = .[A3:A1048576].Find(what:=supplier)
    's'il existe déjà, on récupère sa ligne
    If Not Z Is Nothing Then
        Ligne = Z.Row
    'sinon on se place à la fin
    Else
        Ligne = .Range("A1048576").End(xlUp).Offset(1, 0).Row
    End If
     On Error Resume Next
    'on recopie les textbox dans la feuille Informations
    .Cells(Ligne, 1) = Worksheets("supplier form").Range("B1").Value
    .Cells(Ligne, 2) = Worksheets("supplier form").Range("F1").Value
    .Cells(Ligne, 3) = TextBox1.Value
    .Cells(Ligne, 4) = TextBox2.Value
    .Cells(Ligne, 5) = TextBox3.Value
    .Cells(Ligne, 6) = TextBox4.Value
    .Cells(Ligne, 7) = TextBox5.Value
    .Cells(Ligne, 8) = TextBox6.Value
    .Cells(Ligne, 9) = ComboBox1.Value
    .Cells(Ligne, 10) = ComboBox2.Value
    .Cells(Ligne, 11) = TextBox7.Value
    .Cells(Ligne, 12) = TextBox8.Value
    .Cells(Ligne, 13) = TextBox9.Value
End With
   
End Sub
 
Vote positif 0 Vote négatif
T

Tomd

XLDnaute Nouveau
vgendron à dit:
et . pourrais tu mettre un formulaire sans le message d'erreur qui apparaissait quand tu as fait l'impression d'écran.. c'est pas joli du tout et ca aide pas à se concentrer sur l'essentiel
Cliquez pour agrandir...

A vrai dire c'était pour cacher le nom de la société :confused: désolé

vgendron à dit:
??? c'est ou ca?
Cliquez pour agrandir...

Oui c'est vrai j'ai oublié de faire apparaitre cet feuille dans mon fichier.

Pour le combobox je peux faire apparaitre ?
Code: 
Worksheets("A").Range("B1:B")

ComboBox1.RowSource = A

(c'est un exemple)

Désolé de te prendre autant de temps mais je tiens à te dire que tu m'a déjà beaucoup beaucoup (énormément) fais avancé. Un grand merci !!!
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
Je viens de tomber sur ton autre post (sans réponse) dans lequel tu avais mis tous tes formulaires..
ca aurait été bien de rester sur ce post..
et pour ton combo
pourquoi ne pas rester avec la solution que tu avais et qui fonctionnait bien?
Code: 
ComboBox1.ColumnCount = 1
Set Ws = Sheets("Suppliers DATA")
With Me.ComboBox1
    For j = 5 To Ws.Range("A" & Rows.Count).End(xlUp).Row
        .AddItem Ws.Range("A" & j)
    Next j
End With

à placer dans l'initialize du formulaire
 
Vote positif 0 Vote négatif
T

Tomd

XLDnaute Nouveau
vgendron à dit:
Je viens de tomber sur ton autre post (sans réponse) dans lequel tu avais mis tous tes formulaires..
ca aurait été bien de rester sur ce post..
et pour ton combo
pourquoi ne pas rester avec la solution que tu avais et qui fonctionnait bien?
Cliquez pour agrandir...

A vrai dire le fichier a été énormément modifié depuis ce post est il n'est donc plus d'actualité.

et j'ai uniquement besoin de 6 7 valeurs pour les combo box donc je ne souhaite pas repartir en ce sens.

Je vais tester plusieurs possibilité
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
et j'ai uniquement besoin de 6 7 valeurs pour les combo box donc je ne souhaite pas repartir en ce sens.
Cliquez pour agrandir...
et donc, tu souhaites intialiser le combo direct dans la macro sans aller chercher les valeurs dans une feuille..?

dans ce cas. tu avais déjà la solution, mais pas à la bonne place
Code: 
Private Sub UserForm_Initialize()
'initialisation du combobox1
ComboBox1.AddItem "Riri"
ComboBox1.AddItem "Fifi"
ComboBox1.AddItem "Loulou"
'etc etc

'on récupère le supplier en B1
supplier = Worksheets("supplier form").Range("B1")
' et on remplit les Textbox et combo avec les data de la feuille informations
With Sheets("informations")
    Set Z = .[A3:A1048576].Find(what:=supplier)
    If Not Z Is Nothing Then
        Ligne = Z.Row
        TextBox1 = .Cells(Ligne, 3)
        TextBox2 = .Cells(Ligne, 4)
        TextBox3 = .Cells(Ligne, 5)
        TextBox4 = .Cells(Ligne, 6)
        TextBox5 = .Cells(Ligne, 7)
        TextBox6 = .Cells(Ligne, 8)
'suis pas sur que ca ne va pas planter, vu que le combo a été initialisé juste avant. à essayer
        ComboBox1 = .Cells(Ligne, 9).Value
        ComboBox2 = .Cells(Ligne, 10).Value
        TextBox7 = .Cells(Ligne, 11)
        TextBox8 = .Cells(Ligne, 12)
        TextBox9 = .Cells(Ligne, 13)
    Else
        MsgBox "supplier inexistant, va donc être créé"
    End If
End With
End Sub
 
Vote positif 0 Vote négatif

Discussions similaires

A
  • Question
Microsoft 365 Suppression du contenu de plusieurs cellules et remonter les cellules suivantes
Réponses
12
Affichages
473
Alain 79
A
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Affichage des résultats dans un tableau selon des conditions
Réponses
13
Affichages
391
chaelie2015
chaelie2015
F
  • Question
XL 2019 Extraire des lignes suivant somme des colonnes pour alimenter un autre tableau
Réponses
1
Affichages
249
fanfan38
fanfan38
Todre
  • Résolu(e)
Microsoft 365 Remplissage automatique d'une feuille à l'autre
2 3
Réponses
44
Affichages
2 K
Todre
Todre
C
  • Question
XL 2021 case à cocher dans ListView impacte une cellule de feuille
Réponses
1
Affichages
563
fanch55
fanch55
A
  • Question
XL 2016 Fusion cellules via VBA
Réponses
3
Affichages
469
fanfan38
fanfan38
C
  • Résolu(e)
Microsoft 365 Créer un RV outlook à partir de chaque ligne d'un tableau
Réponses
8
Affichages
779
c.branco
C
H
  • Question
XL 2016 Mettre des titres avec une mise en forme spécifique
Réponses
1
Affichages
305
vgendron
vgendron
C
  • Résolu(e)
XL 2016 Copier coller automatique vers une nouvelle feuille
Réponses
11
Affichages
1 K
sylvanu
sylvanu
M
  • Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
136
Maxou69
M

Membres actuellement en ligne

3 membres et 74 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 412
Messages
2 088 196
Membres
103 763
dernier inscrit
p.michaux