formulaire et incrémentation

[dilack]

Bonjour,
Suite à des recherche infructueuse sur les forums, je vous explique mon soucis étant une vrai bille en prog excel.

Mon classeur excel est construit de 3 feuilles.
Feuille n°1 formulaire
Feuille n°2 Data
Feuille n°3 fax

Ce que je voudrais c'est de créer un formulaire dans ma feuille 1 qui me permet de stocker et classer tout mes sous traitants sur la feuille data en les incrémentant suivant la première et les deux dernière lettre du non de la société en sachant que j'ai plusieurs contacts dans la même société.

Je vous laisse ma feuille en exemple.

Merci d'avance pour votre aide.

 

[tototiti2008]

Re : formulaire et incrémentation

bonjour dilack,

Et le code doit être unique pour chaque ligne ?
Où vas-t'on chercher l'activité ?

 

[dilack]

Re : formulaire et incrémentation

Salut tototiti2008
merci pour une réponse aussi vite.
alors dans le formulaire je rentre tous les élement contact par contact.
c'est vrai dans ma feuille formulaire il me manque une ligne "activité" que je rajouterais par la suite.
Le but du c'est de pouvoir classer et stocker mes contacts dans la feuille data suivant l'activité

 

[tototiti2008]

Re : formulaire et incrémentation

Oui mais le code identifiant, 1er champ de ta feuille Data, il doit être unique pour chaque ligne ou pas ? ou ce doit être le même s'il s'agit de la même entreprise ?

 

[dilack]

Re : formulaire et incrémentation

je n'avais pas compris ta question.
il doit etre unique pour chaque entreprise mai incrémenter d n+1 pour les contacts
-> ayz1 ayz2 entreprise 1
-> bxy1 bxy2 entreprise 2

 

[tototiti2008]

Re : formulaire et incrémentation

Je te propose ça, c'est un début.

Moi je vais me coucher, il se fait tard.

A plus 🙂

 

[dilack]

Re : formulaire et incrémentation

MERCI TOTOTITI2008
ça marche niquel et cà me suffit
Bonne nuit
Je te remercie

 

[dilack]

Re : formulaire et incrémentation

re
J'ai modifié le formulaire en insérant une ligne et donc odifiée la macro de tototiti2008.
Je bute sur un détails
j'ai 2 données qui sont inversées (en rouge dans ma feuille data) je n'arrive pas à comprendre pourquoi et ce n'est pas faute d'avoir chercher.
alors si une âme charitable pouvait m'apporter ces lumières ça serait sympa
merci d'avance

 

[cbea]

Re : formulaire et incrémentation

Bonjour dilack, tototiti2008,

Voici une solution :
Remplacer :

Sheets("Data").Cells(ligne, 6).Value = Donnees(10, 1)

par :

Sheets("Data").Cells(ligne, 6).Value = Donnees(6, 1)

et
Remplacer :

Sheets("Data").Cells(ligne, 8).Value = Donnees(6, 1)

par :

Sheets("Data").Cells(ligne, 8).Value = Donnees(10, 1)

 

[dilack]

Re : formulaire et incrémentation

impec ça marche
merci pour ta réponse