Rectifier code VBA
Bonsoir ...
Supprimer le trie par nom !
quoi supprimer dans le code
et je voudrais que mais données ( nouvelle saisie ) avec formulaire intégrer ) commence dans excel a la ligne 2152 !
merci !
Option Explicit
Private Sub ComboBox1_Click()
Dim i As Byte
CommandButton3.Visible = True
CommandButton4.Visible = True
Label27.Caption = "mode : Modification"
With ComboBox1
For i = 1 To 22
Controls("TextBox" & i) = Sheets("feuil1").Cells(.List(.ListIndex, 1), i)
Next i
End With
End Sub
Private Sub CommandButton1_Click()
Dim Dl As Long
Dim x As Byte
With Sheets("Feuil1")
.Activate
Dl = .Range("A65536").End(xlUp).Row + 1
For x = 1 To 22
.Cells(Dl, x).Value = Me.Controls("TextBox" & x).Value
Next x
Unload Me
'tri selon le nom
.Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
Dim i As Byte
With ComboBox1
For i = 1 To 22
Sheets("feuil1").Cells(.List(.ListIndex, 1), i) = Controls("TextBox" & i)
Controls("TextBox" & i) = ""
Next i
.ListIndex = -1
End With
CommandButton3.Visible = False
CommandButton4.Visible = False
Label27.Caption = "mode : création"
initialisecombo
End Sub
Private Sub CommandButton4_Click()
Dim i As Byte
With ComboBox1
For i = 1 To 22
Controls("TextBox" & i) = ""
Next i
.ListIndex = -1
End With
CommandButton3.Visible = False
CommandButton4.Visible = False
Label27.Caption = "mode : création"
End Sub
Private Sub Frame4_Click()
End Sub
Private Sub Frame5_Click()
End Sub
Private Sub Label27_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_Initialize()
Label27.Caption = "mode : création"
initialisecombo
End Sub
Public Sub initialisecombo()
Dim i As Integer
With ComboBox1
.Clear
.ColumnCount = 2
.ColumnWidths = "50;0"
End With
With Sheets("feuil1")
For i = 2 To .Range("a65536").End(xlUp).Row
ComboBox1.AddItem
ComboBox1.List(ComboBox1.ListCount - 1, 0) = .Cells(i, 1)
ComboBox1.List(ComboBox1.ListCount - 1, 1) = i
Next i
End With
End Sub
Cordialement
Bonjour et bienvenue sur le forum,
Sans le fichier contenant la macro, il est difficile de tester et ainsi proposer une solution. A joindre ton fichier par le biais de l'outil "Ajouter des fichiers joints".
Bonjour,
En ce qui concerne l'annulation de tri, remplace le code entier du module dans lequel j'ai simplement supprimé la partie du code faisant du tri :
Private Sub CommandButton1_Click()par celui-ci :
Private Sub CommandButton1_Click()
Dim Dl As Long
Dim x As Byte
With Sheets("Feuil1")
.Activate
Dl = .Range("A65536").End(xlUp).Row + 1
For x = 1 To 22
.Cells(Dl, x).Value = Me.Controls("TextBox" & x).Value
Next x
End With
Unload Me
End SubPar contre je ne comprends pas ta 2ème demande. Veux-tu expliquer pourquoi les nouveaux enregistrements commenent à partir de la ligne 2152 au lieu de la dernière ligne vide. Y a-t-il une raison particulère ? Pour le moment, un nouveau enregistrement est saisi dans la dernière ligne vide cherché à partir de la colonne A.
bonjour
Merci de prendre du temp pour moi !
suite a ma deuxieme question , voici le fichier original avec donnees sans macro ajouter ! ( pour mieux me comprendre )
Gestion maintenance , pour saisir nos intervention plus facilement avec cette macro que j'ai trouver ?
Bien sur il faut modifier toute la macro pour qu'elle fonctionne avec mon fichier !
debutant en VBA ! donc si vous pouviez m'aider un peu plus ca serait cool !
Si je rajoute la macro ( Les nouveau enregistrement s'ajouterons automatiquement la case vide ! ) à 2662 a ce jour
L'ongle multiple c'est pour crer des listes deroulante ! ( plus tard)
Ps ( si vous avez une autre solution ou macro qui serait mieux je suis a votre ecoute ( excel 2003 ) )
Cordialement
Fichier
Re,
Pour le moment je ne vois pas le fichier. Il est peut être > 300 Ko. Merci de l'alléger avec l'essentiel et de le joindre.
cd
Re,
Ok pour le fichier mais tu n'a toujours pas répondu à ma question pourquoi 2662ème ligne à remplir. Est-ce que c'est la première ligne vide disponible et à remplir dans ton tableau. Si c'est le cas, la macro elle la trouve déjà. Essaye d'être précis dans tes explications afin de ne pas perdre notre temps.
bonsoir
( oublions la ligne 2662 ème ligne )
si j'ai compris mémé si j'ai déjà des données saisies , une fois intégrer le formulaire ,
mais nouvelles données seront automatiquement a la suite d'une cellule vide !
ça devrait être plus compréhensible !
cordialement .... et merci