Affichage d'une cellule suivant le contenu

[gilou31]

bonjour,

voila j'ai crée un macro qui me permet de copier et de coller certaines informations.

Sheets("livre de mission").Select 'FOURNI PAR
Range(A1).Select
Selection.Copy
Sheets("data").Select
colonne = Range("A65536").End(xlUp).Row + 1
Cells(derlig, 33).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

dans certains cas, je peux avoir plusieurs informations, en A1 et en B1, voir en encore plus de cellules.
je souhaite que ma macro parcours ces deux cellules, et me copie celle qui n'est pas vide dans ma cellule souhaitée. Il ne peux pas y avoir deux cellules remplies. Il me semble que la modification est a faire dans la cellule en rouge, mais je ne sais pas quoi...

 

[Spitnolan08]

Re : Affichage d'une cellule suivant le contenu

Bonjour,

Une solution bestiale, sans chercher de simplification :

 Sheets("livre de mission").Select 'FOURNI PAR
For j =1 to 2
     If Cells((1,j)<>"" then cells(1,j).Select
Next
Selection.Copy

cORDIALEMENT

 

[wilfried_42]

Re : Affichage d'une cellule suivant le contenu

Bonjour gilou31, spit 🙂

personellement je n'ai rien compris (un fichier exemple s'avere necessaire)
tout ce que je peux dire c'est que :

Sheets("livre de mission").Select 'FOURNI PAR
Range(A1).Select
Selection.Copy
Sheets("data").Select
colonne = Range("A65536").End(xlUp).Row + 1
Cells(derlig, 33).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

peut etre remplacé par :

sheets("data").range("AG" & range("A65536").end(xlup).row+1)=sheets("livre de mission").range("A1")

m'enfin un fichier serait le bienvenu

 

[Spitnolan08]

Re : Affichage d'une cellule suivant le contenu

Re,
Salut Wilfried🙂,

Je pense que Gilou31 est débutant en VBA et qu'il a essayé d'adapter un code obtenu via l'enregistreur de macro. Ce qui est très bien sur le principe. C'est pourquoi je n'ai pas essayé de simplifier le code...

Cordialement

 

[gilou31]

Re : Affichage d'une cellule suivant le contenu

Voila :
alors j'ai trois cases. Une sera cocher par l'utilisateur. Ne me dites pas de faire avec les cases rondes ou quoi que se soit je n'y arrive pas et ca me ferait tou trecommencer 😛


donc voila. J'ai trois cases. Dans les cadres noir en gras, il s'affiche quelque chose suivant si la case est coché ou non.
Je voudrais que graçe à ma macro, les trois cases soient scannées. Un seul résultat va en ressortir car une seule case sera cochée. Ce résultat s'affichera dans le cadre rouge. 🙂

voila et tout ca si possible en se basant sur ce que j'ai fait pour ne pas désorianté le novice que je suis lol.

 

[gilou31]

Re : Affichage d'une cellule suivant le contenu

petite question annexe :
quel est le code pour décocher toutes les checkbox ? 🙂

 

[Spitnolan08]

Re : Affichage d'une cellule suivant le contenu

Re,

Et ben dis donc, tu ne t'es pas foulé...😎
Et ton fichier ne ressemble pas à ce que tu décrivais dans ton premier post.
Perso je comprends encore moins qu'avant...

Il n'y a même pas de macro...!!!!

Cordialement

 

[gilou31]

Re : Affichage d'une cellule suivant le contenu

Re,

Et ben dis donc, tu ne t'es pas foulé...😎
Et ton fichier ne ressemble pas à ce que tu décrivais dans ton premier post.
Perso je comprends encore moins qu'avant...

Il n'y a même pas de macro...!!!!

Cordialement

j'ai simplifié au maximun le classeur. Mon classeur fait presque 500Ko alors je ne peux l'envoyer... J'ai refait un modele de ce que je voulais obtenir

 

[wilfried_42]

Re : Affichage d'une cellule suivant le contenu

re:

spit: rassure toi je ne comprends pas plus que toi 😡

dans ton fichier exemple : tu as 3 checkbox de type formulaire qui sont lies à des cellules : ces cellules prennent la valeur des chexkbox, mais l'inverse aussi.
si tu tapes vrai en f3, ta checkbox se coche, si tu tapes faux, elle se decoche

donc met à jour tes cellules et tes checkbox seront à jour