Bonjour,
Pour avoir des explications,il faut poster le fichier.
Boisgontier
Bonjour,
Pour avoir des explications,il faut poster le fichier.
Boisgontier
Bonsoir,
Je vois pas de ListBox
Boisgontier
Bonsoir,
Faire une recherche Google : recherche intuitive combobox google
Boisgontier
Autre solution:
Private Sub UserForm_Initialize()
Me.ListBox1.ColumnCount = 4
Me.ListBox1.List = [tableau1].Value
End Sub
Private Sub B_ok_Click()
Bonjour,
Private Sub UserForm_Initialize()
Me.ListBox1.ColumnCount = 4
Me.ListBox1.List = [tableau1].Value
End Sub
Private Sub B_ok_Click()
Bonjour,
Faire une recherche Google: Excel vba tableaux structures
Boisgontier
Bonjour,
https://www.developpez.net/forums/d1768528/logiciels/microsoft-office/excel/macros-vba-excel/vba-saisie-intuitive-google/...
Bonsoir,
J'ai pris pour début la première cellule de TableauResult.
Sub TriHoriz()
NomTableau = "TableauResult"
Set début = Range(NomTableau).Item(1, 1) 'Range("A1")
On Error Resume...
Solution MFC
MFC:=$B5=$A$2
561489
Boisgontier
Bonjour,
Exemple simple avec filtre avancé
Sub Extrait()
Range("Tableau1[#All]").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("H1:H2"), Unique:=False
End Sub
Vous pouvez choisir dans colvisu(2,3,4,6,5) les colonnes à afficher dans la ListBox.
La largeur des colonnes est calculée automatiquement.
561130
Private Sub UserForm_Initialize()
colVisu...
Sub TriHoriz()
NomTableau = "TableauResult"
On Error Resume Next
champ = Range(NomTableau).Address
Range(NomTableau).ListObject.Unlist
On Error GoTo 0
Set début = Range("A1")
Do...
J'ai ajouté:
On Error Resume Next
Range("TableauResult").ListObject.Unlist
On Error GoTo 0
561040
Bonjour,
Laissez tomber Find qui n'est pas adapté pour cet exemple.
Option Compare Text
Dim TblBD(), NomTableau
Private Sub UserForm_Initialize()
NomTableau = "Tableau1"
TblBD =...
Bonjour,
Il y a plusieurs blocs. Les blocs doivent être séparés par une ligne vide.
Chaque ligne est triée.
560939
Bonjour,
>visualiser sur une période à la demande les anniversaires des membres de la famille
Il ne s'agit pas d'un tri mais d'une sélection entre 2 dates
560598
Bonsoir,
Voici un exemple de tri de ListBox. Les dates sont au format jj/mm/aaaa.
L'ordre n'est pas modifié dans la table mais seulement le ListBox;
Private Sub UserForm_Initialize()
...
Bonjour,
Avec le filtre avancé
Option Compare Text
Sub FiltreListe()
Range("tableau1[#all]").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, _
Il y a 2 choses que je ne comprends pas:
1- dans un fichier xlsx, il n'y a pas de macro.
2-la colonne des noms de fournisseurs s'appelle noms, il faut donc adapter (il faut que le nom de la table...
Bonjour,
Sub TriFournisseurs()
NomTableau = "Fournisseurs"
Range(NomTableau).Sort key1:=Range(NomTableau & "[Fournisseurs]"), Header:=xlYes, Order1:=xlAscending
End Sub
Boisgontier
Bonsoir,
Si le tableau est déplacé, avec FIND, le numéro de ligne est déplacé.
En soustrayant Range(nomtableau).row, on peut s'y retrouver.
Option Compare Text
Dim Rng, TblBD(), ColRech,...
Bonjour,
Exemple de tri horizontal:
Sub TriHoriz()
n = [A1].CurrentRegion.Rows.Count
For i = 0 To n - 2
Set Rng = Range("C2:G2").Offset(i)
Bonsoir,
Function ListeTableaux()
Application.Volatile
ReDim Tbl(1 To Application.Caller.Rows.Count)
n = 0
For Each s In ActiveWorkbook.Sheets
For Each t In s.ListObjects
En B4, on remplit a avec les noms
En B9, on remplit a avec les produits.
Boisgontier
Vos listes ne sont pas définies
Il faut un seul combobox.
Dim a(), b(), Mémo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set zsaisie = Range("B4,B9")
If Not...