Tester une cellule

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Caro29
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

Caro29

XLDnaute Nouveau
Bonjour à toutes et à tous

Je suis nouvelle sur le forum.

Je suis en train de créer un fichier de suivi de clients qui n'est pas pour moi.
Dans ce fichier, j'ai:
- un onglet Fichier client qui a terme permettra par un lien hypertexte de retomber sur la fiche du client selectionné.
- Un onglet modèle où l'on rempli les champs et après via un bouton avec macro se duplique pour créer la fiche du client.

C'est là où ça se complique et que je ne sais pas comment prendre la chose. Je m'explique, à partir de la nouvelle fiche client , je selectionne uns certains nombre d'info tels que Nom, prénom et date de naissance que je viens coller dans mon onglet fichier client. De là sur la cellule portant le nom je créée un lien hypertexte vers la fiche client.
ça, je l'ai fait via une macro mais il manque dans ma macro, le test de cellule vide dans mon fichier client. Si B2 par exemple est vide, il colle les infos à partir de cette cellule, si c'est non vide il faut qu'il aille à b3. et si b3 est non vide c'est b4...

Je sais pas si je suis clair.

Voici ma macro:

Range("B4:G4").Select
Selection.Copy
Sheets("FICHIER PATIENTS").Select
Range("B2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Sheets("nedelec").Select
Range("B5:G5").Select
Selection.Copy
Sheets("FICHIER PATIENTS").Select
Sheets("FICHIER PATIENTS").Name = "FICHIER PATIENTS"
Range("C2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Sheets("nedelec").Select
Range("C10:G10").Select
Selection.Copy
Sheets("FICHIER PATIENTS").Select
Range("D2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Sheets("nedelec").Select
Selection.Copy
Sheets("FICHIER PATIENTS").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Range("B2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"toto!A1", TextToDisplay:="nedelec"
Sheets("toto").Select
End Sub

est ce que quelqu'un peut m'aider??? Merci beaucoup d'avance
 
Trier par date Trier par votes
Re : Tester une cellule

Bonjour à tous,
Bienvenue sur XLD,

Comme le préconise la Charte XLD, un fichier est recommandé pour une tentative d'aide optimisée.
Merci aussi d'utiliser les balises pour déposer du code ou des formules

Ton code avec les balises "Code" (le # dans la BO Avancée)

Code: 
Range("B4:G4").SelectSelection.Copy
Sheets("FICHIER PATIENTS").Select
Range("B2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Sheets("nedelec").Select
Range("B5:G5").Select
Selection.Copy
Sheets("FICHIER PATIENTS").Select
Sheets("FICHIER PATIENTS").Name = "FICHIER PATIENTS"
Range("C2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Sheets("nedelec").Select
Range("C10:G10").Select
Selection.Copy
Sheets("FICHIER PATIENTS").Select
Range("D2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Sheets("nedelec").Select
Selection.Copy
Sheets("FICHIER PATIENTS").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Range("B2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"toto!A1", TextToDisplay:="nedelec"
Sheets("toto").Select
End Sub

A+ à tous
 
Vote positif 0 Vote négatif
Re : Tester une cellule

Bonjour à tous,

J'ai essayé de bien comprendre le bon fonctionnement de ta macro mais en vain... Un fichier exemple est de nécessité afin de voir le fonctionnement du code et de préférence avec un exemple saisi manuellement de ce que tu veux obtenir...

Cordialement
 
Vote positif 0 Vote négatif
Re : Tester une cellule

Bonjour à tous,

Quelques transformations sur tes codes et feuille Modele, le code "lien" est inutile (peut être supprimé)... La feuille "Modèle" a été protégée par un mot de passe (pwd = 123) pour faciliter la saisie des informations des patients (cellules déverrouillées) (et par conséquent toutes les feuilles patients le seront aussi)...

En espérant que le fichier attachés sera à tes attentes et souhaits...

Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

eastwick
  • Résolu(e)
XL 2016 macro fichier fermé
Réponses
1
Affichages
118
eastwick
eastwick
ph.vanne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
621
ph.vanne
ph.vanne
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
348
xavieralvaro
X
arck
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
365
AtTheOne
AtTheOne
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
312
sylvanu
sylvanu
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
713
Phil69970
Phil69970
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
899
CortoXls
C
micie1509
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
501
micie1509
micie1509
K
  • Question Question
XL 2019 Organiser le code VBA
Réponses
9
Affichages
906
Kevin38
K
S
  • Résolu(e)
XL 2019 VBA pour créer un nouvel onglet
Réponses
2
Affichages
726
sum01
S
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
772
job75
job75
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
704
robpellan52
R
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
615
job75
job75
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
848
tnion
T
M
  • Question Question
Microsoft 365 Macro VBA supprimer une colonne
Réponses
5
Affichages
530
marie3107
M
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
AtTheOne
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
Nicolas JACQUIN
Usine à gaz
  • Résolu(e)
XL 2021 Ecrire dans une une autre feuille
Réponses
3
Affichages
670
Usine à gaz
Usine à gaz
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
763
M@xu3L
M
C
  • Question Question
Microsoft 365 Impression PDF d'un Word via une macro Excel
Réponses
11
Affichages
1 K
job75
job75
Retour