Bonsoir les gens de ce fil,
je passe par là pour répondre à Aldon qui s'inquiétait pour son programme...
Alors j'ai regardé ton fichier, j'ai rien modifié mais pour qu'il fonctionne selon ta programmation, tu vas faire en sorte de remplacer la macro
Private Sub cmdModif_Click par celle-ci...
Private Sub cmdModif_Click()
Dim Placer As String
If cmdModif.Caption = "Modifier" Then
txtPrenom.Enabled = True
txtNr.Enabled = True
txtRue.Enabled = True
txtCodeP.Enabled = True
txtVille.Enabled = True
txtTel.Enabled = True
txtSociete.Enabled = True
OptionButton1.Enabled = True
cmdNouveau.Caption = "Valider"
cmdModif.Enabled = False
cmdQuitter.Caption = "Annuler"
Else
Placer = Range("A65535").End(xlUp).Row+1
With Feuil2
.Range("A" & Placer) = cboNom.Value
.Range("B" & Placer) = txtPrenom.Value
.Range("C" & Placer) = txtNr.Value
.Range("D" & Placer) = txtRue.Value
.Range("E" & Placer) = txtCodeP.Value
.Range("F" & Placer) = txtVille.Value
.Range("G" & Placer) = txtTel.Value
.Range("H" & Placer) = txtSociete.Value
.Range("I" & Placer) = OptionButton1.Value
End With
Unload Me
UserForm1.Show
End If
End Sub
ensuite pour que les valeurs soient correctes lorsque tu fais une selection dans l'userform tu remplaces les :
Set Plage = WSDonnees.Range("A6:A" & Range("A65535").End
(xlUp).Row)
par :
Set Plage = WSDonnees.Range("A2:A" & Range("A65535").End(xlUp).Row)
parce qu'il y avait un décallage de données...
voilà...avec cela je pense que tu n'auras plus de crainte à avoir dans notre forum au sujet du suivi...lol
---------------------------------------------------------------------------------
Ensuite pour répondre à David au sujet du Zip, moi je serais amené à te demander de
supprimer purement et simplement l'option
XLS et de ne garder que l'option
Zip...
D'une part cela prend de la place dans la base de données ...
c'est déjà une chance pour le site d'avoir la possibilité de joindre un fichier...et d'autre part c'est aussi un peu à nous de nous adapter...
on peut facilement faire cet effort c'est pas insurmontable...et peu importe le programme qu'on utilisera pour Zipper...il en existe une panoplie (
Winzip,
Winrar entre autre
(...Winrar qui peut lui aussi convertir en Zip..si si...je ne sais plus celui qui disait le contraire ) et bien sur
ZipTi (c'est celui que j'préfère...lol) qui est très simple à utiliser...si si JP...même sans fiche technique...lol
Voilà pour moi
Bonne soirée et bonne programmation
PS : Euh Aldon...copies la macro depuis le forum auquel cas tu risques d'avoir les attributs gras tu post qui ne manqueront pas de faire "beug"...lool