Discussion :

[streaper2]

Bonjour,

Voila j'ai piqué des codes à droite et à gauche pour coloré une case précise dans mon tableau en fonction de la ligne sélectionné, ensuite dans la meme macro, j'ai le texte de la couleur qui va d’afficher dans une cellule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
REM  *****  BASIC  *****
 
sub vert
 
dim  oSheet As Object, oCell As Object
	oSheet=thisComponent.getCurrentController.activeSheet
	oCell = thisComponent.getCurrentSelection()
 
 
oActivecell = ThisComponent.getCurrentController().getSelection()
oActivecell1 = ThisComponent.getCurrentController().getSelection()
oActiveSheet=oActivecell.getSpreadSheet
Address=oActivecell.RangeAddress
colonne=Address.StartColumn
 
 
while colonne<=Address.EndColumn
ligne=Address.StartRow
while ligne<=Address.EndRow
ligne=ligne+1
wend
colonne=colonne+1
 
CellRange = ThisComponent.getCurrentController.getActiveSheet.getCellrangeByPosition(Adress+1,ligne-1,4,ligne-1)
CellRange.CellBackColor = RGB(145,219,53)
 
	oCell = oSheet.getCellByPosition(28,ligne-1)
	oCell.setString("vert")
 
wend
 
end sub

Maintenant j'ai tester la formule suivante

if oCell.String = ''' then 'si la valeur de cellule en AC est vide alors j'ecris dans ma case "vert"

code

elseif oCell.String = "rouge" then 'si la valeur de cellule en AC est rouge alors je décale le "rouge" en AD et j'ecris "vert" en AC

else

endif

Mais le souci c'est que je ne sais pas si il prend en compte ma cellule a tester qui se trouve en colonne AC
donc ca ne fonctionne pas.

Merci par avance pour votre aide.

[zoom61]

Salut,

Dans le code que tu donnes, je ne vois aucune ligne indiquant un test sur le contenu de la cellule.
Voici un test qui permet de tester le contenu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub CelluleVide
    maCellule = ThisComponent.CurrentSelection
    If isnull(maCellule.String) or maCellule.String = "" Then
        msgbox "C'est vide"
        else
        msgbox "C'est pas vide"
    End If
End Sub

[streaper2]

Le problème avec ce code c'est que ça fonctionne pour la cellule qui est sélectionné, alors que je veux la cellule qui se trouve sur la ligne sélectionné mais à la colonne AC je poste le tableau dans quelques minutes.

[zoom61]

Une petite recherche et voilà comment sélectionner une cellule : ici

[streaper2]

Voila le tableau, j'ai essayé avec l'option oCell = oSheet.getCellByPosition()
mais ca n'a pas fonctionné, et la j'ai une erreur avec le End Sub je ne sais pas pourquoi.

[zoom61]

Que je comprenne bien, tu veux que si c'est :

• vide cela met en vert les cellules B à E de la ligne concernée
• "rouge" cela met en rouge les cellules B à E de la ligne concernée
• etc.

[streaper2]

Nope du tout en faite, cette fonctionnalité est ok déjà,

faut que tu décales la vue en AC ici il y a vert qui s'inscrit dans le tableau quand tu clics sur le bouton, ensuite Si le texte vert, rouge, ou orange est déjà existant dans cette cellule (AC) alors on va décalé le texte de AC à AD et on va inscrire en AC la couleur du bouton appuyé.

[streaper2]

Bon bein j'ai reussi a décaler la cellule sous condition. merci pour ton aide Zoom61 :p

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
sub vert
 
dim  oSheet As Object, oCell As Object, oStack As Object
	oSheet=thisComponent.getCurrentController.activeSheet
	oCell = thisComponent.getCurrentSelection()
	oStack =  thisComponent.getCurrentSelection()
 
 
oActivecell = ThisComponent.getCurrentController().getSelection()
oActivecell1 = ThisComponent.getCurrentController().getSelection()
oActiveSheet=oActivecell.getSpreadSheet
Address=oActivecell.RangeAddress
colonne=Address.StartColumn
while colonne<=Address.EndColumn
ligne=Address.StartRow
while ligne<=Address.EndRow
ligne=ligne+1
wend
colonne=colonne+1
 
CellRange = ThisComponent.getCurrentController.getActiveSheet.getCellrangeByPosition(Adress+1,ligne-1,4,ligne-1)
CellRange.CellBackColor = RGB(145,219,53)
 
	oStack = oSheet.getCellByPosition(29,ligne-1)
	oCell = oSheet.getCellByPosition(28,ligne-1)
	if oCell.string() =""   then
	oCell.setString("vert")
	elseif oCell.string() <>"vert" then 
	oStack.setString(oCell.string())
	oCell.setString("vert")
	else
 
	end if
 
wend
 
End sub