dans un précedant post j'ai demandé comment garder en mémoire la réference
de la cellule précédament active
si A1 était sélécte et que je click sur B10 garder que la cellule
précédente était A1
J'ais dans la macro : Sub Worksheet_SelectionChange()
Sub Worksheet_SelectionChange(ByVal Target As Range)
Call CalRoulements
End Sub
Sub CalRoulements()
CellCol = MemoCell.Column
Ligne = MemoCell.Row
D = Cells(Ligne, 2)
If D = 1 Then
'Lundi
Cells(Ligne, 10) = Cells(Ligne, 3)
Cells(Ligne, 17) = Cells(Ligne, 3)
Cells(Ligne, 24) = Cells(Ligne, 3)
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Papyty
Salut @ Tous, Christian Raoux a écrit:
Salut
dans un précedant post j'ai demandé comment garder en mémoire la réference de la cellule précédament active si A1 était sélécte et que je click sur B10 garder que la cellule précédente était A1
J'ais dans la macro : Sub Worksheet_SelectionChange()
Sub Worksheet_SelectionChange(ByVal Target As Range) Call CalRoulements End Sub
Sub CalRoulements()
CellCol = MemoCell.Column Ligne = MemoCell.Row
D = Cells(Ligne, 2)
If D = 1 Then 'Lundi Cells(Ligne, 10) = Cells(Ligne, 3) Cells(Ligne, 17) = Cells(Ligne, 3) Cells(Ligne, 24) = Cells(Ligne, 3) End If
End Sub
et dans un module en déclarations
Public MemoCell
Mais j'ai : erreur d'execution "424" Objet Requis
Merci pour votre aide
christian
Je pense que MemoCell est vide Essai:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set MemoCell = Target Call CalRoulements End Sub
et dis nous. -- @+ Thierry
Salut @ Tous, Christian Raoux a écrit:
Salut
dans un précedant post j'ai demandé comment garder en mémoire la réference
de la cellule précédament active
si A1 était sélécte et que je click sur B10 garder que la cellule
précédente était A1
J'ais dans la macro : Sub Worksheet_SelectionChange()
Sub Worksheet_SelectionChange(ByVal Target As Range)
Call CalRoulements
End Sub
Sub CalRoulements()
CellCol = MemoCell.Column
Ligne = MemoCell.Row
D = Cells(Ligne, 2)
If D = 1 Then
'Lundi
Cells(Ligne, 10) = Cells(Ligne, 3)
Cells(Ligne, 17) = Cells(Ligne, 3)
Cells(Ligne, 24) = Cells(Ligne, 3)
End If
End Sub
et dans un module en déclarations
Public MemoCell
Mais j'ai :
erreur d'execution "424"
Objet Requis
Merci pour votre aide
christian
Je pense que MemoCell est vide
Essai:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set MemoCell = Target
Call CalRoulements
End Sub
dans un précedant post j'ai demandé comment garder en mémoire la réference de la cellule précédament active si A1 était sélécte et que je click sur B10 garder que la cellule précédente était A1
J'ais dans la macro : Sub Worksheet_SelectionChange()
Sub Worksheet_SelectionChange(ByVal Target As Range) Call CalRoulements End Sub
Sub CalRoulements()
CellCol = MemoCell.Column Ligne = MemoCell.Row
D = Cells(Ligne, 2)
If D = 1 Then 'Lundi Cells(Ligne, 10) = Cells(Ligne, 3) Cells(Ligne, 17) = Cells(Ligne, 3) Cells(Ligne, 24) = Cells(Ligne, 3) End If
End Sub
et dans un module en déclarations
Public MemoCell
Mais j'ai : erreur d'execution "424" Objet Requis
Merci pour votre aide
christian
Je pense que MemoCell est vide Essai:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set MemoCell = Target Call CalRoulements End Sub
et dis nous. -- @+ Thierry
Papyty
Salut @ Tous, Christian Raoux a écrit:
Salut
dans un précedant post j'ai demandé comment garder en mémoire la réference de la cellule précédament active si A1 était sélécte et que je click sur B10 garder que la cellule précédente était A1
J'ais dans la macro : Sub Worksheet_SelectionChange()
Sub Worksheet_SelectionChange(ByVal Target As Range) Call CalRoulements End Sub
Sub CalRoulements()
CellCol = MemoCell.Column Ligne = MemoCell.Row
D = Cells(Ligne, 2)
If D = 1 Then 'Lundi Cells(Ligne, 10) = Cells(Ligne, 3) Cells(Ligne, 17) = Cells(Ligne, 3) Cells(Ligne, 24) = Cells(Ligne, 3) End If
End Sub
et dans un module en déclarations
Public MemoCell
Mais j'ai : erreur d'execution "424" Objet Requis
Merci pour votre aide
christian
Oubli le premier post je recupere la cellule active donc je corrige:
Sub Worksheet_SelectionChange(ByVal Target As Range) Call CalRoulements CellCol = Target.Column Ligne = Target.Row End Sub
Sub CalRoulements() If CellCol = "" Or Ligne = "" Then Exit Sub D = Cells(Ligne, 2) If D = 1 Then 'Lundi Cells(Ligne, 10) = Cells(Ligne, 3) Cells(Ligne, 17) = Cells(Ligne, 3) Cells(Ligne, 24) = Cells(Ligne, 3) End If End Sub
et dans le module de déclaration
Public CellCol Public Ligne
Cette fois ça devrait gazer -- @+ Thierry
Salut @ Tous, Christian Raoux a écrit:
Salut
dans un précedant post j'ai demandé comment garder en mémoire la réference
de la cellule précédament active
si A1 était sélécte et que je click sur B10 garder que la cellule
précédente était A1
J'ais dans la macro : Sub Worksheet_SelectionChange()
Sub Worksheet_SelectionChange(ByVal Target As Range)
Call CalRoulements
End Sub
Sub CalRoulements()
CellCol = MemoCell.Column
Ligne = MemoCell.Row
D = Cells(Ligne, 2)
If D = 1 Then
'Lundi
Cells(Ligne, 10) = Cells(Ligne, 3)
Cells(Ligne, 17) = Cells(Ligne, 3)
Cells(Ligne, 24) = Cells(Ligne, 3)
End If
End Sub
et dans un module en déclarations
Public MemoCell
Mais j'ai :
erreur d'execution "424"
Objet Requis
Merci pour votre aide
christian
Oubli le premier post je recupere la cellule active donc je corrige:
Sub Worksheet_SelectionChange(ByVal Target As Range)
Call CalRoulements
CellCol = Target.Column
Ligne = Target.Row
End Sub
Sub CalRoulements()
If CellCol = "" Or Ligne = "" Then Exit Sub
D = Cells(Ligne, 2)
If D = 1 Then
'Lundi
Cells(Ligne, 10) = Cells(Ligne, 3)
Cells(Ligne, 17) = Cells(Ligne, 3)
Cells(Ligne, 24) = Cells(Ligne, 3)
End If
End Sub
dans un précedant post j'ai demandé comment garder en mémoire la réference de la cellule précédament active si A1 était sélécte et que je click sur B10 garder que la cellule précédente était A1
J'ais dans la macro : Sub Worksheet_SelectionChange()
Sub Worksheet_SelectionChange(ByVal Target As Range) Call CalRoulements End Sub
Sub CalRoulements()
CellCol = MemoCell.Column Ligne = MemoCell.Row
D = Cells(Ligne, 2)
If D = 1 Then 'Lundi Cells(Ligne, 10) = Cells(Ligne, 3) Cells(Ligne, 17) = Cells(Ligne, 3) Cells(Ligne, 24) = Cells(Ligne, 3) End If
End Sub
et dans un module en déclarations
Public MemoCell
Mais j'ai : erreur d'execution "424" Objet Requis
Merci pour votre aide
christian
Oubli le premier post je recupere la cellule active donc je corrige:
Sub Worksheet_SelectionChange(ByVal Target As Range) Call CalRoulements CellCol = Target.Column Ligne = Target.Row End Sub
Sub CalRoulements() If CellCol = "" Or Ligne = "" Then Exit Sub D = Cells(Ligne, 2) If D = 1 Then 'Lundi Cells(Ligne, 10) = Cells(Ligne, 3) Cells(Ligne, 17) = Cells(Ligne, 3) Cells(Ligne, 24) = Cells(Ligne, 3) End If End Sub
et dans le module de déclaration
Public CellCol Public Ligne
Cette fois ça devrait gazer -- @+ Thierry
AV
Ha....si on pouvait rester dans le fil initial........! ..........On y verrait la réponse !
AV
Ha....si on pouvait rester dans le fil initial........!
..........On y verrait la réponse !
dans un précedant post j'ai demandé comment garder en mémoire la réference de la cellule précédament active si A1 était sélécte et que je click sur B10 garder que la cellule précédente était A1
J'ais dans la macro : Sub Worksheet_SelectionChange()
Sub Worksheet_SelectionChange(ByVal Target As Range) Call CalRoulements End Sub
Sub CalRoulements()
CellCol = MemoCell.Column Ligne = MemoCell.Row
D = Cells(Ligne, 2)
If D = 1 Then 'Lundi Cells(Ligne, 10) = Cells(Ligne, 3) Cells(Ligne, 17) = Cells(Ligne, 3) Cells(Ligne, 24) = Cells(Ligne, 3) End If
End Sub
et dans un module en déclarations
Public MemoCell
Mais j'ai : erreur d'execution "424" Objet Requis
Merci pour votre aide
christian
Oubli le premier post je recupere la cellule active donc je corrige:
Sub Worksheet_SelectionChange(ByVal Target As Range) Call CalRoulements CellCol = Target.Column Ligne = Target.Row End Sub
Sub CalRoulements() If CellCol = "" Or Ligne = "" Then Exit Sub D = Cells(Ligne, 2) If D = 1 Then 'Lundi Cells(Ligne, 10) = Cells(Ligne, 3) Cells(Ligne, 17) = Cells(Ligne, 3) Cells(Ligne, 24) = Cells(Ligne, 3) End If End Sub
dans un précedant post j'ai demandé comment garder en mémoire la
réference de la cellule précédament active
si A1 était sélécte et que je click sur B10 garder que la cellule
précédente était A1
J'ais dans la macro : Sub Worksheet_SelectionChange()
Sub Worksheet_SelectionChange(ByVal Target As Range)
Call CalRoulements
End Sub
Sub CalRoulements()
CellCol = MemoCell.Column
Ligne = MemoCell.Row
D = Cells(Ligne, 2)
If D = 1 Then
'Lundi
Cells(Ligne, 10) = Cells(Ligne, 3)
Cells(Ligne, 17) = Cells(Ligne, 3)
Cells(Ligne, 24) = Cells(Ligne, 3)
End If
End Sub
et dans un module en déclarations
Public MemoCell
Mais j'ai :
erreur d'execution "424"
Objet Requis
Merci pour votre aide
christian
Oubli le premier post je recupere la cellule active donc je corrige:
Sub Worksheet_SelectionChange(ByVal Target As Range)
Call CalRoulements
CellCol = Target.Column
Ligne = Target.Row
End Sub
Sub CalRoulements()
If CellCol = "" Or Ligne = "" Then Exit Sub
D = Cells(Ligne, 2)
If D = 1 Then
'Lundi
Cells(Ligne, 10) = Cells(Ligne, 3)
Cells(Ligne, 17) = Cells(Ligne, 3)
Cells(Ligne, 24) = Cells(Ligne, 3)
End If
End Sub
dans un précedant post j'ai demandé comment garder en mémoire la réference de la cellule précédament active si A1 était sélécte et que je click sur B10 garder que la cellule précédente était A1
J'ais dans la macro : Sub Worksheet_SelectionChange()
Sub Worksheet_SelectionChange(ByVal Target As Range) Call CalRoulements End Sub
Sub CalRoulements()
CellCol = MemoCell.Column Ligne = MemoCell.Row
D = Cells(Ligne, 2)
If D = 1 Then 'Lundi Cells(Ligne, 10) = Cells(Ligne, 3) Cells(Ligne, 17) = Cells(Ligne, 3) Cells(Ligne, 24) = Cells(Ligne, 3) End If
End Sub
et dans un module en déclarations
Public MemoCell
Mais j'ai : erreur d'execution "424" Objet Requis
Merci pour votre aide
christian
Oubli le premier post je recupere la cellule active donc je corrige:
Sub Worksheet_SelectionChange(ByVal Target As Range) Call CalRoulements CellCol = Target.Column Ligne = Target.Row End Sub
Sub CalRoulements() If CellCol = "" Or Ligne = "" Then Exit Sub D = Cells(Ligne, 2) If D = 1 Then 'Lundi Cells(Ligne, 10) = Cells(Ligne, 3) Cells(Ligne, 17) = Cells(Ligne, 3) Cells(Ligne, 24) = Cells(Ligne, 3) End If End Sub
