DélimiterPlageCelluleDansMacro

P

Pierre

Guest

• 2 Avril 2003

• #2

Salut,

J'vais p'tet dire une c.... mais n'as-tu pas essayé en nommant ta plage de donnée, et en pointant sur le nom?

Pierre

 

Vote positif 0 Vote négatif

A

A_binouze_drinker_among_others

Guest

• 2 Avril 2003

• #3

if activecell.address(0,0)="A1" then ......

for each cl in range("tarange")
if cl.interior.colorindex=36 then ....
next cl

 

Vote positif 0 Vote négatif

M

Moa

Guest

• 2 Avril 2003

• #4

Merci beaucoup Binouze, mais je n'arrive pas à faire fonctionner ce que tu m'as donné.

J'ai essayé en changeant plein de paramètres, pas moyen.

Merci beaucoup quand-même

@ +

Moa

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 2 Avril 2003

• #5

Bonsoir le forum

Essaye ceci Moa

Option Explicit
Sub essai()
Dim cellule As Range
For Each cellule In Range("B1😀13")
If cellule.Interior.ColorIndex = 36 Then
'bla bla bla...
cellule.Interior.ColorIndex = 6
End If
Next cellule
End Sub

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 2 Avril 2003

• #6

Bonjour forum

Moa, essaye cela


Sub couleur()
Dim Cell As Range
Dim MaPlage As Range

Set MaPlage = Range("A1:A10")

For Each Cell In MaPlage
If Cell.Interior.ColorIndex = 3 Then
Cell.Offset(0, 1).Interior.ColorIndex = 8
End If
Next Cell
End Sub


@Christophe@

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 2 Avril 2003

• #7

Re

Ben Mytå, nous nous sommes croisé, nos poste sont presque idem

See you

Bonne soiré a tous

@Christophe@

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 2 Avril 2003

• #8

Salut @Christophe@

Deux solutions de plus en presqu'en meme temps faut le faire

A+ et bonne soirée

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 2 Avril 2003

• #9

Re

Thanks, bonne soiré a tous

@Christophe@

 

Vote positif 0 Vote négatif

A

A_binouze_drinker_among_others

Guest

• 3 Avril 2003

• #10

ça revient à la même chose que ma 2nde solution
mais je pense que si ça ne convient pas à moa, il devrait poster un fichier test montrant ce qu'il veut faire

 

Vote positif 0 Vote négatif

M

Moa

Guest

• 3 Avril 2003

• #11

Salut les gars :

Je n'arrive pas à adapter vos macros. (Faut savoir que Vba et moi...héhé !! on est pas très copain....hihihi...)

Donc je vous donne ma macro d'origine :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next

If ActiveCell.Interior.ColorIndex = 36 Then

If ActiveCell.Value = "" Then
ActiveCell.Value = "L"

ElseIf ActiveCell.Value = "L" Then
ActiveCell.Value = "P"

ElseIf ActiveCell.Value = "P" Then
ActiveCell.Value = "S"
ElseIf ActiveCell.Value = "S" Then
ActiveCell.Value = ""
End If


'End If

Cancel = True

End Sub
For Each cellule In Range("FR2:FT14")
Next cellule

 

Vote positif 0 Vote négatif

M

Moa

Guest

• 3 Avril 2003

• #12

Non Non et non Pu.... de Cla...j'ai pas fini :

Voici la vraie macro d'origine


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next

If ActiveCell.Interior.ColorIndex = 36 Then

If ActiveCell.Value = "" Then
ActiveCell.Value = "L"

ElseIf ActiveCell.Value = "L" Then
ActiveCell.Value = "P"

ElseIf ActiveCell.Value = "P" Then
ActiveCell.Value = "S"

ElseIf ActiveCell.Value = "S" Then
ActiveCell.Value = ""
End If

End If

Cancel = True

End Sub

Donc en fait le subterfuge utilisé est le "interior.ColorIndex..blabla"

Mais en réalité je ne veux plus parler de couleur dans ma macro, je voudrais parler directement de plage :

Aussi j'ai éssayé en remplaçant par :

For Each cellule In Range("FR2:FT14")
Next cellule

Et la ça marche, mais trop bien puisque c'est opérationnel sur tout la feuille.

En fait il faut qu'en double cliquant, sur les cellules de mon tableau, ma macro fonctionne, mais que pour ce tableau, car cette feuille et déjà pleine d'autre tableaux, formules et macros.

Ma macro actuelle fonctionne très bien, mais j'ai d'autres tableaux avec la même couleur, donc je ne peux plus utiliser cette formule.

Voilà j'espère avoir été assez clair et encore merci beaucoup les gars.

@ +

Moa

 

Vote positif 0 Vote négatif

A

A_binouze_drinker_among_others

Guest

• 3 Avril 2003

• #13

bonjour

et celà ?

if Not Intersect(Target, range("tontableau")) Is Nothing then
if ActiveCell.Interior.ColorIndex=36 then
select case target.value
case "" :val="L"
case "L":val="P"
case "P":val="S"
case "S":val=""
case else
end select
target.value=val
end if
end if
cancel=true

 

Vote positif 0 Vote négatif

M

Moa

Guest

• 3 Avril 2003

• #14

Re-Salut !

Donc, Binouze ta dernière solution ne fonctionne pas non plus, mais par contre, j'ai piqué seulement :

If Not Intersect(Target, Range("FR2:FT14")) Is Nothing Then

Que j'ai rajouté au début de la macro, j'ai supprimé la partie "ColorIndex" et là, ça marche très bien.

Donc, voici la macro finale :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next

If Not Intersect(Target, Range("FR2:FT14")) Is Nothing Then

If ActiveCell.Value = "" Then
ActiveCell.Value = "L"
ElseIf ActiveCell.Value = "X" Then
ActiveCell.Value = "L"
ElseIf ActiveCell.Value = "L" Then
ActiveCell.Value = "P"
ElseIf ActiveCell.Value = "P" Then
ActiveCell.Value = "S"
ElseIf ActiveCell.Value = "S" Then
ActiveCell.Value = ""
End If

Cancel = True
End If
End Sub

Encore plein de gros merci à vous les gars.

Bonne fin de journée.

@ +

Moa

 

Vote positif 0 Vote négatif

A

A_binouze_drinker_among_others

Guest

• 3 Avril 2003

• #15

exemple joint, en suposnat que une plage a été nommée tableau

 

Pièces jointes

• Classeur1.xls

  23.5 KB · Affichages: 66
• Classeur1.xls

  23.5 KB · Affichages: 69
• Classeur1.xls

  23.5 KB · Affichages: 72

Vote positif 0 Vote négatif