Reordonner un tableau excel avec macro

Version imprimable

Voir 40 message(s) de cette discussion en une page

26/07/2010, 10h52
zyhack

Effectivement il est normal qu'une erreur apparaisse car comme le séparateur n'est pas présent la comparaison donne 0 dans les deux cas, pour pallier à ceci ramplace la ligne par

Code:

If InStr(1, C.Value, "-") > 0 And InStr(1, C.Value, "-") = InStrRev(C.Value, "-") Then

ce qui te passera dans le else pour définir le nom du propriétaire
26/07/2010, 15h31
mouncefdi

Bonjour zyhack, aalex_38,

j'ai essaye avec ta rectification zyhack mais ca ne marche pas. Il me sort le msg : le proprietaire a t il le status..? une fois et c'est tout sans specifier dequel proprietaire il s'agit.

En vue du nombre de donnee, est ce que c'est possible au lieu de definir les status des proprietaires suivant qu'ils soient publics ou privee, faire un check sur la feuille Table de mon excel: si le proprietaire n'est pas dans cette table alors le considerer comme privee...(Encore une fois si ca n'implique pas de gros changement sur ton code excellent zyhack).

Et en definitive, j'arrive pas a mettre en forme mes tableaux..

Merci beaucoup

Cordialement,

plutot que supprimer du code j'en ai ajouté pour que tu puisses le faire en auto ou en manu

j'ai bien commenté le code pour que tu puisse t'y retrouvé

il faut remplacer le code entre la première et la dernière ligne du code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
        'sinon demande à l'utilsateur
 
        texte = ""
        ' ### si la ligne suivant est décommenté il y aura la demande
        ' ### de renseignement sur le nom du propriétaire
        'texte = InputBox("Impossible de définir le nom du propiétaire d'après ce projet" & vbCrLf & _
                          "Veuillez entrer son nom puis OK" & vbCrLf & vbCrLf & _
                          "Annuler ou une chaine vide gardera la chaine complète", _
                          "Nom de Propriétaire", C.Value)
        If texte = "" Then texte = C.Value
      End If
      'Demande du status
      ' ### si la ligne suivante est décommenté il y aura la demande
      ' ### de status
      'Reponse = MsgBox("Le propiétaire " & texte & " à t'il le status Public" & vbCrLf & vbCrLf & _
                      "OUI : Status = Public" & vbCrLf & "NON : Status = Private", vbYesNo, "Status proriétaire")
      'ou mise automatique en private
      'Si la demande de status est décommenté il faut
      'mettre en commentaire celle la
      Reponse = vbNo
 
      'Ajout dans la feuille Table et dans le tableau

Voir 40 message(s) de cette discussion en une page