Je voudrais faire ceci (s'il est possible):
- Classer la table selon ordre croissant de la Colonne1;
- Lire chaque cellule (en commençant du haut au bas) de la colonne2,
et si droite(Colonne2)="ABC" ==> alors coller cette cellule dans les
cellules en bas jusqu'à une autre cellule qui a droite(Colonne2)="ABC"
aussi ..... et ainsi de suite.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut;
"mobimus" | Dans une table j'ai 2 colonne: | | Colonne1: NuméroOrdre (1,2,3, ....) | Colonne2: Libellé | | Je voudrais faire ceci (s'il est possible): | - Classer la table selon ordre croissant de la Colonne1; | - Lire chaque cellule (en commençant du haut au bas) de la colonne2, | et si droite(Colonne2)="ABC" ==> alors coller cette cellule dans les
tu veux dire Left(champ2,3) = "ABC" ??
| cellules en bas jusqu'à une autre cellule qui a droite(Colonne2)="ABC" | aussi ..... et ainsi de suite. [...]
quelque chose comme :
Sub zozo()
Dim Db As DAO.Database Dim Rs As DAO.Recordset Dim sTemp As String Set Db = CurrentDb Set Rs = Db.OpenRecordset("Select champ1, champ2") sTemp = ""
Do Until Rs.EOF If Left(champ2, 3) = "ABC" Then sTemp = champ2 Else Rs.Edit champ2 = sTemp End If Rs.MoveNext Loop
Rs.Close: Db.Close Set Rs = Nothing Set Db = Nothing
"mobimus"
| Dans une table j'ai 2 colonne:
|
| Colonne1: NuméroOrdre (1,2,3, ....)
| Colonne2: Libellé
|
| Je voudrais faire ceci (s'il est possible):
| - Classer la table selon ordre croissant de la Colonne1;
| - Lire chaque cellule (en commençant du haut au bas) de la colonne2,
| et si droite(Colonne2)="ABC" ==> alors coller cette cellule dans les
tu veux dire Left(champ2,3) = "ABC" ??
| cellules en bas jusqu'à une autre cellule qui a droite(Colonne2)="ABC"
| aussi ..... et ainsi de suite.
[...]
quelque chose comme :
Sub zozo()
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim sTemp As String
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("Select champ1, champ2")
sTemp = ""
Do Until Rs.EOF
If Left(champ2, 3) = "ABC" Then
sTemp = champ2
Else
Rs.Edit
champ2 = sTemp
End If
Rs.MoveNext
Loop
Rs.Close: Db.Close
Set Rs = Nothing
Set Db = Nothing
"mobimus" | Dans une table j'ai 2 colonne: | | Colonne1: NuméroOrdre (1,2,3, ....) | Colonne2: Libellé | | Je voudrais faire ceci (s'il est possible): | - Classer la table selon ordre croissant de la Colonne1; | - Lire chaque cellule (en commençant du haut au bas) de la colonne2, | et si droite(Colonne2)="ABC" ==> alors coller cette cellule dans les
tu veux dire Left(champ2,3) = "ABC" ??
| cellules en bas jusqu'à une autre cellule qui a droite(Colonne2)="ABC" | aussi ..... et ainsi de suite. [...]
quelque chose comme :
Sub zozo()
Dim Db As DAO.Database Dim Rs As DAO.Recordset Dim sTemp As String Set Db = CurrentDb Set Rs = Db.OpenRecordset("Select champ1, champ2") sTemp = ""
Do Until Rs.EOF If Left(champ2, 3) = "ABC" Then sTemp = champ2 Else Rs.Edit champ2 = sTemp End If Rs.MoveNext Loop
Rs.Close: Db.Close Set Rs = Nothing Set Db = Nothing