Tester une cellule

[Caro29]

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

 

[JCGL]

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)

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

 

[hbenalia]

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

 

[Caro29]

Re : Tester une cellule

voici mon fichier

 

[JCGL]

Re : Tester une cellule

Bonjour à tous,

Voici ce que je ferais.

Clicker sur le bouton de la feuille Modèle
Renseigner le nom du patient dans l'InputBox
Aller sur la feuille du patient
Continuer à renseigner le dossier

A + à tous

 

[hbenalia]

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

 

[Caro29]

Re : Tester une cellule

Merci beaucoup à vous deux.

Les deux me conviennent. je vais aller regarder de plus près la macro pour comprendre ce que vous avez fait et pouvoir le refaire par la suite.