remplissage automatique par Vba Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
S
Starr
Membre habitué
Membre habitué
Messages : 124
Inscrit le : 17 avril 2014
Version d'Excel : 2007

Message par Starr » 16 juin 2016, 09:27

Bonjour,

J’ai besoin d’aide pour réaliser un fichier en VBA.

Dans « Suivi chantier »
Sur la ligne 2, lorsque je rempli les cellules de B à E,

Dans « recap dossier »
Ces mêmes infos se remplissent automatiquement dans les cellules de B à E.

Idem pour les autres lignes de 3 à l’infini.

Merci pour votre aide.
FICHE DE GESTION UNIQUE .xlsx
(67.65 Kio) Téléchargé 18 fois
Modifié en dernier par Starr le 16 juin 2016, 10:10, modifié 1 fois.
m
minanse
Membre dévoué
Membre dévoué
Messages : 689
Inscrit le : 1 juin 2016
Version d'Excel : 2007

Message par minanse » 16 juin 2016, 09:38

Bonjour,

une solution possible, il faudra "tirer" la formule sur tout les cases que vous avez besoin
FICHE DE GESTION UNIQUE .xlsx
(91.88 Kio) Téléchargé 14 fois
S
Starr
Membre habitué
Membre habitué
Messages : 124
Inscrit le : 17 avril 2014
Version d'Excel : 2007

Message par Starr » 16 juin 2016, 09:41

Bonjour,

Merci de votre réponse rapide.
Mais je voudrais cela en Vba parce que comme je ne suis pas le seul qui utilise le fichier, les formules sont souvent supprimées.

Merci,
m
minanse
Membre dévoué
Membre dévoué
Messages : 689
Inscrit le : 1 juin 2016
Version d'Excel : 2007

Message par minanse » 16 juin 2016, 10:14

à tester :
Private Sub Worksheet_Change(ByVal Target As Range)
dim ligne as integer
dim colonne as integer
 If Not Application.Intersect(Target, column("B:E")) Is Nothing Then
   ligne = target.row
   colonne = target.column

  sheets("RECAP DOSSIER").cells(ligne,colonne) = target
   
 End If
End Sub
inconvénient est que si vous modifier plusieurs cellule en même temps cela ne s'effectue pas sur l'autre feuille (ex : supprimer une plage )

désolé :oops: :oops: :oops: le fichier joint n'est pas la bonne et il manque un "s" à "column" dans :
    If Not Application.Intersect(Target, column("B:E")) Is Nothing Then  
FICHE DE GESTION UNIQUE .xlsx
(67.11 Kio) Téléchargé 12 fois
S
Starr
Membre habitué
Membre habitué
Messages : 124
Inscrit le : 17 avril 2014
Version d'Excel : 2007

Message par Starr » 16 juin 2016, 10:26

Re,

il ya une erreur de compilation (voir image).

Merci de ton aide.
erreur .JPG
m
minanse
Membre dévoué
Membre dévoué
Messages : 689
Inscrit le : 1 juin 2016
Version d'Excel : 2007

Message par minanse » 16 juin 2016, 10:30

oui comme je l'avais plutôt il manque un "S" a "column"
S
Starr
Membre habitué
Membre habitué
Messages : 124
Inscrit le : 17 avril 2014
Version d'Excel : 2007

Message par Starr » 16 juin 2016, 10:40

Ça fonction très bien. je te remercie Beaucoup.

maintenant si c'est encore possible je souhaiterais que
Dans « Suivi chantier »
lorsque je rempli les cellules de B à E,

Dans « recap dossier »
la date du jour se met automatiquement dans la cellule "Réception demande" de la ligne concernée. et cette date ne doit plus jamais changer sauf manuellement.

J'attache le fichier mis à jour au cas ou.

Merci,
FICHE DE GESTION UNIQUE .xlsx
(71.69 Kio) Téléchargé 17 fois
m
minanse
Membre dévoué
Membre dévoué
Messages : 689
Inscrit le : 1 juin 2016
Version d'Excel : 2007

Message par minanse » 16 juin 2016, 10:44

La date du jour se met automatique si les 4 colonne sont rempli ou si juste un des 4 suffit ?
S
Starr
Membre habitué
Membre habitué
Messages : 124
Inscrit le : 17 avril 2014
Version d'Excel : 2007

Message par Starr » 16 juin 2016, 10:48

uniquement la cellule D
m
minanse
Membre dévoué
Membre dévoué
Messages : 689
Inscrit le : 1 juin 2016
Version d'Excel : 2007

Message par minanse » 16 juin 2016, 10:55

j'ai mal formuler la question ^^

vous remplissez toujours les 4 (B:E) en même temps ?

la date s'affiche si les colonne précédent(B:E) sont tous remplie ou par exemple B2 est remplie donc on a une date en D2 (alors que C2,D2 et E2 sont vide)
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Remplissage automatique
    par ygauvin2 » 19 mai 2019, 14:08 » dans Excel - VBA
    18 Réponses
    225 Vues
    Dernier message par Maryz
    20 mai 2019, 13:44
  • Remplissage automatique
    par VALIONNE » 22 mars 2020, 07:20 » dans Excel - VBA
    4 Réponses
    43 Vues
    Dernier message par VALIONNE
    22 mars 2020, 08:35
  • Remplissage automatique
    par jul997 » 22 novembre 2018, 08:37 » dans Excel - VBA
    10 Réponses
    272 Vues
    Dernier message par dhany
    23 novembre 2018, 08:27
  • remplissage automatique
    par daxilane » 8 février 2018, 13:38 » dans Excel - VBA
    4 Réponses
    132 Vues
    Dernier message par daxilane
    8 février 2018, 15:43
  • Remplissage automatique
    par jul997 » 20 novembre 2018, 13:10 » dans Excel - VBA
    2 Réponses
    100 Vues
    Dernier message par tulipe_4
    20 novembre 2018, 13:28
  • Remplissage automatique
    par dargoll » 1 mars 2016, 16:25 » dans Excel - VBA
    9 Réponses
    371 Vues
    Dernier message par dargoll
    2 mars 2016, 14:12