modifier une cellule en modifiant la bonne ligne

altinea

XLDnaute Accro
Bonsoir le forum,
Je sollicite votre aide afin de résoudre mon petit soucis.
Voilà vous trouverez en fichier joint un petit exemple de ce que je souhaiterai réaliser.
1 userform
1 combobox et 2 textbox, en fonction de la sélection de la combobox s'affichent dans les deux textbox ce ui figure dans les colonnes adjacentes de la colonne 1.
La texbox 3 elle je souhaiterai pouvoir entrer la valeur de mon choix, le seul inconvénient c'est que cela me modifie la ligne choisie.
je suis sous 2010 mais le fichier je lai enrgistré en version 2003 afin qu'il soit exploitable par le plus grand nombre
Merci pour votre aide
 

Fichiers joints

altinea

XLDnaute Accro
Re : modifier une cellule en modifiant la bonne ligne

Bonsoir le forum, Jean Marcel, merci effectivement c'est déjà une bonne avancée par contre est il possible de ne conserver que la colonne 1au lieu d'afficher la colonne 1 et 2 dans la combobox??
merci
 

Gelinotte

XLDnaute Accro
Re : modifier une cellule en modifiant la bonne ligne

Bonsoir,

Change la ligne : Me.ComboBox1.AddItem (Cell & " " & Cell.Offset(0, 1))
Pour : Me.ComboBox1.AddItem Cell

G
 

altinea

XLDnaute Accro
Re : modifier une cellule en modifiant la bonne ligne

Bjr le forum, JeanMarcel Gelinotte, concernant ton dernier message Gelinotte où doit je mettre le code peux tu m'expliquer merci
 

Gelinotte

XLDnaute Accro
Re : modifier une cellule en modifiant la bonne ligne

Bonjour,

Ouvre le fichier de Jean-Marcel, fais : ALT+F11. Une nouvelle fenêtre apparaît, bouton de droite de la souris sur UserForm1, Code.

La macro : "Private Sub UserForm_Initialize()", 4 lignes plus bas.

G
 

altinea

XLDnaute Accro
Re : modifier une cellule en modifiant la bonne ligne

Bonjour le Forum, Jean Marcel, Gelinotte, Laetitia90,
Merci Gélinotte pour la précision, Latitia90 merci car avec ton exemple joint j'ai pu mettre en application de suite. Je vais transposer cela sur mon fichier de travail.
Merci encore pour votre aide, avant de lancer une autre discussion auriez vous par hasard une idée de comment traiter les doublons, en fait je veux supprimer des doublons dans une feuille mais au lieu de les supprimer complétement je veux les sortir de la feuille en cours et de les copier sur une autre feuille afin de vérifier si cela est ok (jai déjà ue macro qui détecte et supprime)

Merci encore
 

laetitia90

XLDnaute Barbatruc
Re : modifier une cellule en modifiant la bonne ligne

re, tous:):):)
perso pas compris grand chose
dans ton fichier 2 lignes avec "canard" mais indice 1 & 2 different est t'il considere comme un doublon???:confused:
IDEAL mettre un fichier avec resulat a obtenir sur sheet2 comme cela plus simple pour tous le monde:)
 

altinea

XLDnaute Accro
Re : modifier une cellule en modifiant la bonne ligne

Le forum, Gelinotte, Jean Marcel, Laetitia90 concernant ta remarque je comprends que tu sois perdue avec tous ces oiseaux.
tu as répondu à ma demande sur ce fil parfaitement ,
la question en fait était une autre demande pour un autre fichier mais pas avec celui ci
je peux éventuellement si cela ne perturbe pas le fil mettre en PJ un fichier avec ma macro et ce que je souhaiterai arriver a faire
merci
 

altinea

XLDnaute Accro
Re : modifier une cellule en modifiant la bonne ligne

Le forum, Gelinotte, Jean Marcel, Laetitia90 concernant ta remarque je comprends que tu sois perdue avec tous ces oiseaux.
tu as répondu à ma demande sur ce fil parfaitement ,
la question en fait était une autre demande pour un autre fichier mais pas avec celui ci
je peux éventuellement si cela ne perturbe pas le fil mettre en PJ un fichier avec ma macro et ce que je souhaiterai arriver a faire
merci
 

altinea

XLDnaute Accro
Re : modifier une cellule en modifiant la bonne ligne

Rebonsoir,je joins le fichier avec feuil3 et avec la macro ainsi que mes commentaires pour ce qui est du traitement des doublons si tu peux jeter un œil dessus afin de me dire ce que tu en pense Laetitia90
merci
 

Fichiers joints

laetitia90

XLDnaute Barbatruc
Re : modifier une cellule en modifiant la bonne ligne

re,
brut comme cela ....pas simplifier!!

Sub Bouton5_Cliquer()
Dim derC$, i&
derC = [A65536].End(xlUp).Address
For i = Range(derC).Row To 2 Step -1
If Evaluate("COUNTIF(A1:" & derC & ",""" & Cells(i, 1).Value & """)") > 1 Then Cells(i, 1).EntireRow.Cut _
Destination:=Sheets("Doublons").Range("A65536").End(xlUp)(2)
Next i
End sub
 

altinea

XLDnaute Accro
Re : modifier une cellule en modifiant la bonne ligne

le forum, le fil, Laetitia90 merci pour ta réponse, par contre cela ne fonctionne pas ça plante il me dit plein de méchancetés, erreur compil, fin d'instruction attendue

Sub Bouton5_Cliquer()
Dim derC$, i&
derC = [A65536].End(xlUp).Address
For i = Range(derC).Row To 2 Step -1
If Evaluate("COUNTIF(A1:" & derC & ",""" & Cells(i, 1).Value & """)") > 1 Then Cells(i, 1).EntireRow.Cut
Destination = Sheets("Doublons").Range("A65536").End(xlUp)(2)
Next i
End Sub

pourrais tu regarder encore stp
 

altinea

XLDnaute Accro
Re : modifier une cellule en modifiant la bonne ligne

Bonjour, effectivement ça fonctionne je comprends pas que cela n'ai pas fonctionné chez moi merci encore laetitia90 bonne journée
 

altinea

XLDnaute Accro
Re : modifier une cellule en modifiant la bonne ligne

re bonsoir le forum, le fil
laetitia90, j'ai remarqué que lorsque ej supprime les doublons il s'agit des doublons de la première colonne et il me supprime toutes les lignes, par contre je souhaiterai qu'il vérifie la ligne et si seulement toute la ligne est en doublon elle soit supprimée
en fait il s'agit de la ligne entière en doublon et non pas la colonne A, car là il me supprime trop d’éléments, merci pour votre aide encore une fois
 

laetitia90

XLDnaute Barbatruc
Re : modifier une cellule en modifiant la bonne ligne

re,
si tu utilise excel 2007 ou 2010
tu selectionne ta plage tu fais données puis supprimer les doublons une fenetre apparait par defaut toutes les colonnes sont selectionner tu fais selectionner tout.... puis ok les lignes en double supprimer c'est tout !!!
 

altinea

XLDnaute Accro
Re : modifier une cellule en modifiant la bonne ligne

bonsoir, merci effectivement je connais le principe sur 2010, par contre c'est pour mettre au service de plusieurs utilisateurs qui ne maitrise pas excel, encore moins que moi lol, donc le but était de faire une macro, qui me permette d'dentifier les doublon de les supprimer en les copiant sur une autre feuille et en supprimant les lignes vides de la feuilles ou il y avait les doublons, voila
merci
 

laetitia90

XLDnaute Barbatruc
Re : modifier une cellule en modifiant la bonne ligne

re,change le code dans ton bouton

suppose 6 colonnes utiliser??? comme dans ton exemple autrement il faut adapter... pas trop optimiser mais bon!!

Code:
 Dim m As Object, i As Long, z As Variant
 On Error Resume Next
 Application.ScreenUpdating = False
 Set m = CreateObject("Scripting.Dictionary")
 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
 z = Cells(i, 1) & Cells(i, 2) & Cells(i, 3) & Cells(i, 4) & Cells(i, 5) & Cells(i, 6)
 If Not m.Exists(z) Then
 m.Add z, z
 Else
 Cells(i, 1).Resize(1, 6).Cut Destination:=Sheets("Doublons").Cells(Rows.Count, 1).End(xlUp)(2)
 End If
 Next i
Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 

Discussions similaires


Haut Bas