Gestion automatique d'informations entre deux feuilles
Résolu/Fermé
Boukistyle10
Messages postés
24
Date d'inscription
jeudi 17 septembre 2015
Statut
Membre
Dernière intervention
30 octobre 2015
-
17 sept. 2015 à 09:46
Boukistyle10 Messages postés 24 Date d'inscription jeudi 17 septembre 2015 Statut Membre Dernière intervention 30 octobre 2015 - 17 sept. 2015 à 14:17
Boukistyle10 Messages postés 24 Date d'inscription jeudi 17 septembre 2015 Statut Membre Dernière intervention 30 octobre 2015 - 17 sept. 2015 à 14:17
A voir également:
- Gestion automatique d'informations entre deux feuilles
- Entrer les informations d'identification reseau - Guide
- Message automatique thunderbird - Guide
- Fusionner deux feuilles excel - Guide
- Gmail libellé automatique - Guide
- Deux ecran pc - Guide
3 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
17 sept. 2015 à 09:50
17 sept. 2015 à 09:50
bonjour,
Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci proposé (clic droit) dans le message de réponse
Dans l'attente
Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci proposé (clic droit) dans le message de réponse
Dans l'attente
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
Modifié par michel_m le 17/09/2015 à 10:56
Modifié par michel_m le 17/09/2015 à 10:56
Bonjour
macro dans module feuil1 gestion immo
IMPORTANT: SUPPRIMER LES LIENS HYPERTEXTE DANS LA FEUILLE "gestion immo"
manquait l'année d'achat
Michel
macro dans module feuil1 gestion immo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Lig As Byte, Ligvid As Byte
If Not Intersect(Target, Range("E1:E20")) Is Nothing Then
Lig = Target.Row
With Sheets("mise en rébut")
Ligvid= .Columns("B").Find("", .Range("B6"), xlValues).Row
.Cells(Derlig, "B") = Cells(Lig, "C") 'désignation
.Cells(Derlig, "C") = Cells(Lig, "D") 'distinction
.Cells(Derlig, "D") = Cells(Lig, "A") ' numéro immo
.Range(.Cells(Derlig, "B"), .Cells(Derlig, "E")).Borders.Weight = xlThin
.Activate
End With
End If
End Sub
IMPORTANT: SUPPRIMER LES LIENS HYPERTEXTE DANS LA FEUILLE "gestion immo"
manquait l'année d'achat
Michel
Boukistyle10
Messages postés
24
Date d'inscription
jeudi 17 septembre 2015
Statut
Membre
Dernière intervention
30 octobre 2015
2
17 sept. 2015 à 11:03
17 sept. 2015 à 11:03
Tout d'abord merci pour ce macro, cela peut sembler bête mais où le placer ?
Je viens juste de supprimer les liens hypertextes de la première feuille
Encore merci Michel, une fois le macro placé je vous tiendrais au courant du bon fonctionnement du document,
Bien à vous,
Je viens juste de supprimer les liens hypertextes de la première feuille
Encore merci Michel, une fois le macro placé je vous tiendrais au courant du bon fonctionnement du document,
Bien à vous,
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
17 sept. 2015 à 11:02
17 sept. 2015 à 11:02
j'avais oublié le classeur avec les changements de disposition dans "mise au rébut"
http://www.cjoint.com/c/EIrjckNRZGb
http://www.cjoint.com/c/EIrjckNRZGb
Boukistyle10
Messages postés
24
Date d'inscription
jeudi 17 septembre 2015
Statut
Membre
Dernière intervention
30 octobre 2015
2
17 sept. 2015 à 11:08
17 sept. 2015 à 11:08
Je test votre document et vous tien informé . Merci pour l'upload :)
Boukistyle10
Messages postés
24
Date d'inscription
jeudi 17 septembre 2015
Statut
Membre
Dernière intervention
30 octobre 2015
2
17 sept. 2015 à 14:04
17 sept. 2015 à 14:04
Le code marche parfaitement et je vous en remercie :) .
J'aurais une petite questiontconcernant la ligne de code suivante : " If Not Intersect(Target, Range("E1:E40")) Is Nothing Then "
En sachant que j'ai 600 lignes j'a remplacé E40 par E600, un problème est survenu avec un code erreur "6" m'indiquant : "Dépassement de capacité" en mode débogage ... auriez-vous une idée du problème ? Je cherche de mon côté ;)
Merci encore Michel,
Bonne journée,
Bien à vous
J'aurais une petite questiontconcernant la ligne de code suivante : " If Not Intersect(Target, Range("E1:E40")) Is Nothing Then "
En sachant que j'ai 600 lignes j'a remplacé E40 par E600, un problème est survenu avec un code erreur "6" m'indiquant : "Dépassement de capacité" en mode débogage ... auriez-vous une idée du problème ? Je cherche de mon côté ;)
Merci encore Michel,
Bonne journée,
Bien à vous
Boukistyle10
Messages postés
24
Date d'inscription
jeudi 17 septembre 2015
Statut
Membre
Dernière intervention
30 octobre 2015
2
17 sept. 2015 à 14:17
17 sept. 2015 à 14:17
J'ai trouvé .. le type de variable n'était pas bon, il fallait déclarer un "Integer" et non pas un "Byte"... ! Merci :)
Problème résolu !
Problème résolu !
17 sept. 2015 à 10:16
Merci de votre réponse aussi rapide.
Voici le lien du document (J'ai supprimé quelques mises en forme du document par soucis de confidentialité : http://www.cjoint.com/c/EIrioUL7TFo
Bien à vous,