Programmation VBA sur Excel

Résolu
moi JB -  
Bonjour,
Je voudrais créer un code sur Excel (office 2007). Lorsque je remplis une cellule, il crée une nouvelle feuille et ajoute le contenue des cellules à celles de la nouvelle feuille.

Je m'explique : La première feuille serai une sorte d'ajout rapide ne contenant que des infos sommaires (nom, prenom, tel.). Je voudrais que lorsque je remplis une cellules (ou coche une case peut importe), il crée une nouvelle feuille et entre automatiquement le nom, prenom et tel. Par la suite, je pourrais venir completer cette feuille et ajouter des informations (ex : adresse, age ....)

Voila, j'éspère avoir été clair.
J'ai quelques notions de base en programmation VBA (1er année IUT mesure physique), mais j'ai toujours travaillé avec des userForm ou des code, mais jamais directement sur des cellules Excel.

Merci de votre aide
Configuration: Windows Vista
Internet Explorer 7.0

4 réponses

  1.  moi JB Auteur
    Salut,

    J'ai essayé les codes que vous m'avez evnoyé, ca marche à merveille. Ils sont très claire, très lisible.
    Merci beaucoup.
    0
    1. herod1983
      Pas mal du tout j'aime bien, j'ai juste eu un coup déboguage,
      quand la nouvelle feuille a été créée, je reviens à la première et j'éfface les valeurs des cellules.

      Normalement sa n'aurait pas du le faire vu que tu as rentré cette condition If AncAdress <> "", j'ai juste rajouté
      on error resume next, la condition d'erreur saute cela appelle la macro et s'arrete sur la condition
      If Sheets("feuil1").Range("A3").Value <> ""

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Static AncAdress As String, AncCell As Variant
      If AncAdress <> "" And Target.Count = 1 Then 'pour 1ère initialisation.
      On Error Resume Next
      If AncCell <> Range(AncAdress) And Range(AncAdress).Column = 1 Then
      'La cellule que l'ont vient de quitter était en colonne A
      'et a été modifiée.
      'Mettre l'action à exécuter.
      Call essai()
      End If
      End If
      AncAdress = Target.Address
      AncCell = Target.Value2
      End Sub

      0
      1. lermite222 Contributeur
        Boujour,
        Pour rendre la fonction de herod1983 automatique (sans bouton) tu peu ajouter le code ci-dessous dans le module de la feuil1 (si c'est la 1ère) 
        Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As String, AncCell As Variant
    If AncAdress <> "" And Target.Count = 1 Then 'pour 1ère initialisation.
        If AncCell <> Range(AncAdress) And Range(AncAdress).Column = 1 Then
            'La cellule que l'ont vient de quitter était en colonne A
            'et a été modifiée.
            'Mettre l'action à exécuter.
            Call essai()
        End If
    End If
    AncAdress = Target.Address
    AncCell = Target.Value2
End Sub

        C'est à adapter, dans l'exemple il faut modifier la cellule de la colonne A en dernier si tu veux que les 3 cellules soient copiées.
        A+
        0
        1. herod1983
          Salut

          Je t'ai rajouté des truc comme le remplacement du nom de la nouvelle feuille créée, par le nom et le prénom de la personne que tu veux référencer et le déplacement de la nouvelle feuille en dernier.
          Tu peux les effacer si ta t'intéresse pas sa n'affectera pas le code.

          A mettre dans un bouton ou dans Worksheet_SelectionChange

          voila

          Sub essai()

          ' si la derniere cellule est rempli par exemple TEL
          ' en cellule A3 alors
          If Sheets("feuil1").Range("A3").Value <> "" Then
          Sheets.Add ' crée une nouvelle feuille

          'nom de la nouvelle feuille est le prénom et le nom
          'cellule A1 et A2 de feuil1
          ActiveSheet.Name = Sheets("feuil1").Range("A1").Value & " " & Sheets("feuil1").Range("A2").Value

          'déplace la nouvelle feuille en dernière position
          ActiveSheet.Move After:=Sheets(Worksheets.Count)

          'copie les valeurs des cellules A1 A2 et A3 nom prénom Tel
          'vers la nouvelle feuille en cellule A1 A2 et A3
          ActiveSheet.Range("A1").Value = Sheets("feuil1").Range("A1").Value
          ActiveSheet.Range("A2").Value = Sheets("feuil1").Range("A2").Value
          ActiveSheet.Range("A3").Value = Sheets("feuil1").Range("A3").Value

          End If

          End Sub
          0