remplir colonne

wilfried_42

XLDnaute Barbatruc

• 16 Avril 2007

• #2

Re : remplir colonne

bonjour ratou

ton fichier en retour, mais je ne crois pas avoir vraiment compris

 

Pièces jointes

• ratou34.xls

  22.5 KB · Affichages: 51
• ratou34.xls

  22.5 KB · Affichages: 52
• ratou34.xls

  22.5 KB · Affichages: 53

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 16 Avril 2007

• #3

Re : remplir colonne

Bonjour

Je n'ai pas compris la même chose que Wilfried
Code pour le double clique sur une cellule de la feuille

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Application.WorksheetFunction.CountIf(Sheets("feuil2").Range("A:A"), Target.Offset(0, -1)) = 1 Then
   Target = Sheets("Feuil2").Cells(Application.WorksheetFunction.Match(Target.Offset(0, -1), Sheets("Feuil2").Range("A:A"), 0), 2)
   Cancel = True
Else
   UserForm1.Show
End If
End Sub

@+Jean-Marie

 

Vote positif 0 Vote négatif

R

ratou34

Guest

• 16 Avril 2007

• #4

Re : remplir colonne

Salut Wilfried
En fait, je ne sais pas ce que tu as fait, quand je regarde le code, il n'y a rien.
Mais c pas grave, je reexplique
Mon pb est le suivant:
La feuille 2, on y touche pas elle me sert de "mini base de données"
Sur la feuille1, je veux que la colonne "desig2" soit rempli en fonction de la colonne "desig" directement quand la possibilite est unique et ouvre le useform quand le choix est multiple, cad
- Pour "facteur", la useform s'ouvre car 2 possibilites
-Pour "chauffeur", le choix est unique, donc la desig2 pour chauffeur est renseigné de facon automatique.
Merci d'avance

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 16 Avril 2007

• #5

Re : remplir colonne

re: bonjour jean marie

on peux le faire sans userform, affichage direct ou liste de validation, avec une interruption worksheet_change m'enfin c'est une idée

 

Vote positif 0 Vote négatif

R

ratou34

Guest

• 16 Avril 2007

• #6

Re : remplir colonne

Re wilfried et JeanMarie
JeanMarie, c tres proche de ce que je cherche, cependant pour les valeurs multiples, j'ai quelques buggs et je voudrais que ca m'affiche les choix possible dans mon combobox (pour des choix multiples) et que ca s'affiche dans la colonne desig2.
Merci

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 16 Avril 2007

• #7

Re : remplir colonne

Re...

J'ai bien vu, que ton code pour l'userform n'était pas complet. Mais ton premier message n'indiquait aucune demande à son sujet.

@+Jean-Marie

 

Vote positif 0 Vote négatif

R

ratou34

Guest

• 16 Avril 2007

• #8

Re : remplir colonne

re
Desole jean marie mais je suis novice sur excel.
Mais je pense que tu as tout a fait compris ce que je voulais.
Merci de tes renseignement ponctuelle et futur.

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 16 Avril 2007

• #9

Re : remplir colonne

re:

voici mon idée, sans userform, avec liste de validation

en colonne A, on saisit
si pas de valeur en colonne B : #N/A
Si une seule valeur, elle s'affiche
si plusieurs valeur en B liste de validation

 

Pièces jointes

• ratou34.xls

  32.5 KB · Affichages: 53
• ratou34.xls

  32.5 KB · Affichages: 51
• ratou34.xls

  32.5 KB · Affichages: 50

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 16 Avril 2007

• #10

Re : remplir colonne

Re...

Code dans la feuille Userform

Code:

Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
With ComboBox1
   ActiveCell = .List(.ListIndex)
End With
Unload Me
End Sub


Private Sub UserForm_Activate()
Dim vCell As Range
TextBox1.Value = ActiveCell.Offset(0, -1)
With Sheets("Feuil2")
   For Each vCell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
      If vCell = TextBox1 Then
         ComboBox1.AddItem vCell.Offset(0, 1)
      End If
   Next vCell
End With
ComboBox1.ListIndex = 0
End Sub

Code pour la feuille Feuil1

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Application.WorksheetFunction.CountIf(Sheets("feuil2").Range("A:A"), Target.Offset(0, -1)) = 1 Then
   Target = Sheets("Feuil2").Cells(Application.WorksheetFunction.Match(Target.Offset(0, -1), Sheets("Feuil2").Range("A:A"), 0), 2)
   Cancel = True
Else
   UserForm1.Show
   Cancel = True
End If
End Sub

PS, on peut aussi utiliser la propriété Text de la combobox, ce qui donne

Code:

Private Sub CommandButton1_Click()
ActiveCell = ComboBox1.Text
Unload Me
End Sub

@+Jean-Marie

 

Dernière édition: 16 Avril 2007

Vote positif 0 Vote négatif

R

ratou34

Guest

• 16 Avril 2007

• #11

Re : remplir colonne

re
ca me plait bien ton systeme wilfried, merci.
Pour le systeme de jean marie, il me plait bien aussi car j'en aurais surement besoin pour autre chose, cependant, j'ai une erreur (ça ne marche pas chez moi)
Merci beaucoup

 

Vote positif 0 Vote négatif

R

ratou34

Guest

• 16 Avril 2007

• #12

Re : remplir colonne

Re wilfried
mais pour que ça fonction, il faut que la colonne desig2 soit deja en parti rempli?
@+

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 16 Avril 2007

• #13

Re : remplir colonne

Re

Essaye avec le fichier

@+Jean-Marie

 

Pièces jointes

• test userform.zip

  13 KB · Affichages: 46
• test userform.zip

  13 KB · Affichages: 47
• test userform.zip

  13 KB · Affichages: 50

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 16 Avril 2007

• #14

Re : remplir colonne

re:

oui et nom c'estpas compliqué d'ajouter un controle sur la colonne B et permetre de saisir un nom et de completer la base de donnees, modifier le nom liste, et de decaler la creation de la liste d'une case, finalement c'est assez simple

 

Vote positif 0 Vote négatif

R

ratou34

Guest

• 16 Avril 2007

• #15

Re : remplir colonne

re
ça ne marche pas quand je lui demande de debugger, c la ligne suivante qui apparait:
If Application.WorksheetFunction.CountIf(Sheets("feuil2").Range("A:A"), Target.Offset(0, -1)) = 1 Then
je pense que ca t'aidera + que moi
merci

 

Vote positif 0 Vote négatif