....copie cette valeur dans la dernière cellule vide de la colonne A
Bonsoir,
Ca ressemble à une ficelle précédente où Jacky et Mich m'avait solutionné le problème, j'ai tenté avec ce
qu'ils m'ont donné d'adapter... mais vraiment impossible ! Aussi, je vous demande encore un coup de main....
J'ai dans une colonne C des formules
Je souhaiterais que lorsque je tape "D" (peu importe la casse) dans la col D qu'il me copie la valeur de la
cellule à la gauche de où j'ai tapé "D" et qu'il me copie cette valeur dans la dernière cellule vide de la
colonne A de la Feuil "Devis"
Me suis je fais comprendre...
Encore merci pour votre aide !
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
....copie cette valeur dans la dernière cellule vide de la colonne A
Bonsoir,
Ca ressemble à une ficelle précédente où Jacky et Mich m'avait solutionné le problème, j'ai tenté avec ce
qu'ils m'ont donné d'adapter... mais vraiment impossible ! Aussi, je vous demande encore un coup de main....
J'ai dans une colonne C des formules
Je souhaiterais que lorsque je tape "D" (peu importe la casse) dans la col D qu'il me copie la valeur de la
cellule à la gauche de où j'ai tapé "D" et qu'il me copie cette valeur dans la dernière cellule vide de la
colonne A de la Feuil "Devis"
Me suis je fais comprendre...
Encore merci pour votre aide !
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
....copie cette valeur dans la dernière cellule vide de la colonne A
Bonsoir,
Ca ressemble à une ficelle précédente où Jacky et Mich m'avait solutionné le problème, j'ai tenté avec ce
qu'ils m'ont donné d'adapter... mais vraiment impossible ! Aussi, je vous demande encore un coup de main....
J'ai dans une colonne C des formules
Je souhaiterais que lorsque je tape "D" (peu importe la casse) dans la col D qu'il me copie la valeur de la
cellule à la gauche de où j'ai tapé "D" et qu'il me copie cette valeur dans la dernière cellule vide de la
colonne A de la Feuil "Devis"
Me suis je fais comprendre...
Encore merci pour votre aide !
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
....copie cette valeur dans la dernière cellule vide de la colonne A
Bonsoir,
Ca ressemble à une ficelle précédente où Jacky et Mich m'avait solutionné
le problème, j'ai tenté avec ce qu'ils m'ont donné d'adapter... mais
vraiment impossible ! Aussi, je vous demande encore un coup de main....
J'ai dans une colonne C des formules
Je souhaiterais que lorsque je tape "D" (peu importe la casse) dans la col
D qu'il me copie la valeur de la cellule à la gauche de où j'ai tapé "D"
et qu'il me copie cette valeur dans la dernière cellule vide de la colonne
A de la Feuil "Devis"
Me suis je fais comprendre...
Encore merci pour votre aide !
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
....copie cette valeur dans la dernière cellule vide de la colonne A
Bonsoir,
Ca ressemble à une ficelle précédente où Jacky et Mich m'avait solutionné
le problème, j'ai tenté avec ce qu'ils m'ont donné d'adapter... mais
vraiment impossible ! Aussi, je vous demande encore un coup de main....
J'ai dans une colonne C des formules
Je souhaiterais que lorsque je tape "D" (peu importe la casse) dans la col
D qu'il me copie la valeur de la cellule à la gauche de où j'ai tapé "D"
et qu'il me copie cette valeur dans la dernière cellule vide de la colonne
A de la Feuil "Devis"
Me suis je fais comprendre...
Encore merci pour votre aide !
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
....copie cette valeur dans la dernière cellule vide de la colonne A
Bonsoir,
Ca ressemble à une ficelle précédente où Jacky et Mich m'avait solutionné
le problème, j'ai tenté avec ce qu'ils m'ont donné d'adapter... mais
vraiment impossible ! Aussi, je vous demande encore un coup de main....
J'ai dans une colonne C des formules
Je souhaiterais que lorsque je tape "D" (peu importe la casse) dans la col
D qu'il me copie la valeur de la cellule à la gauche de où j'ai tapé "D"
et qu'il me copie cette valeur dans la dernière cellule vide de la colonne
A de la Feuil "Devis"
Me suis je fais comprendre...
Encore merci pour votre aide !
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
Ca bug dès la la 1ère ligne.... Private Sub Worksheet_Change(ByVal Target As Range)
Est-ce dû que j'ai déjà une autre macro que m'avait réalisé Mich qui commence de la même façon mais pour
autre chose...
Ne peut-on pas avoir le même Private Sub Worksheet_Change(ByVal Target As Range) de la même Feuil pour
diverses éléments souhaités...
Merci
Manu
"Jacky" a écrit dans le message de groupe de discussion : lv7gif$95m$
Bonsoir,....copie cette valeur dans la dernière cellule vide de la colonne A
Ceci dans le module de la feuille en question
'------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Double
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("d2:d" & Cells(Rows.Count, "c").End(xlUp).Row)) Is Nothing Then
If UCase(Target) = "D" Then
x = Target.Offset(, -1).Value
With Sheets("Devis")
.Range("a" & .Cells(.Rows.Count, "a").End(xlUp).Row + 1) = x
End With
End If
End If
End Sub
'--------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news: lv7d7m$b4$Bonsoir,
Ca ressemble à une ficelle précédente où Jacky et Mich m'avait solutionné le problème, j'ai tenté avec ce
qu'ils m'ont donné d'adapter... mais vraiment impossible ! Aussi, je vous demande encore un coup de
main....
J'ai dans une colonne C des formules
Je souhaiterais que lorsque je tape "D" (peu importe la casse) dans la col D qu'il me copie la valeur de la
cellule à la gauche de où j'ai tapé "D" et qu'il me copie cette valeur dans la dernière cellule vide de la
colonne A de la Feuil "Devis"
Me suis je fais comprendre...
Encore merci pour votre aide !
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Ca bug dès la la 1ère ligne.... Private Sub Worksheet_Change(ByVal Target As Range)
Est-ce dû que j'ai déjà une autre macro que m'avait réalisé Mich qui commence de la même façon mais pour
autre chose...
Ne peut-on pas avoir le même Private Sub Worksheet_Change(ByVal Target As Range) de la même Feuil pour
diverses éléments souhaités...
Merci
Manu
"Jacky" a écrit dans le message de groupe de discussion : lv7gif$95m$1@speranza.aioe.org...
Bonsoir,
....copie cette valeur dans la dernière cellule vide de la colonne A
Ceci dans le module de la feuille en question
'------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Double
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("d2:d" & Cells(Rows.Count, "c").End(xlUp).Row)) Is Nothing Then
If UCase(Target) = "D" Then
x = Target.Offset(, -1).Value
With Sheets("Devis")
.Range("a" & .Cells(.Rows.Count, "a").End(xlUp).Row + 1) = x
End With
End If
End If
End Sub
'--------------------
--
Salutations
JJ
"Manu" <manuinf60@gmail.com> a écrit dans le message de news: lv7d7m$b4$1@speranza.aioe.org...
Bonsoir,
Ca ressemble à une ficelle précédente où Jacky et Mich m'avait solutionné le problème, j'ai tenté avec ce
qu'ils m'ont donné d'adapter... mais vraiment impossible ! Aussi, je vous demande encore un coup de
main....
J'ai dans une colonne C des formules
Je souhaiterais que lorsque je tape "D" (peu importe la casse) dans la col D qu'il me copie la valeur de la
cellule à la gauche de où j'ai tapé "D" et qu'il me copie cette valeur dans la dernière cellule vide de la
colonne A de la Feuil "Devis"
Me suis je fais comprendre...
Encore merci pour votre aide !
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Ca bug dès la la 1ère ligne.... Private Sub Worksheet_Change(ByVal Target As Range)
Est-ce dû que j'ai déjà une autre macro que m'avait réalisé Mich qui commence de la même façon mais pour
autre chose...
Ne peut-on pas avoir le même Private Sub Worksheet_Change(ByVal Target As Range) de la même Feuil pour
diverses éléments souhaités...
Merci
Manu
"Jacky" a écrit dans le message de groupe de discussion : lv7gif$95m$
Bonsoir,....copie cette valeur dans la dernière cellule vide de la colonne A
Ceci dans le module de la feuille en question
'------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Double
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("d2:d" & Cells(Rows.Count, "c").End(xlUp).Row)) Is Nothing Then
If UCase(Target) = "D" Then
x = Target.Offset(, -1).Value
With Sheets("Devis")
.Range("a" & .Cells(.Rows.Count, "a").End(xlUp).Row + 1) = x
End With
End If
End If
End Sub
'--------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news: lv7d7m$b4$Bonsoir,
Ca ressemble à une ficelle précédente où Jacky et Mich m'avait solutionné le problème, j'ai tenté avec ce
qu'ils m'ont donné d'adapter... mais vraiment impossible ! Aussi, je vous demande encore un coup de
main....
J'ai dans une colonne C des formules
Je souhaiterais que lorsque je tape "D" (peu importe la casse) dans la col D qu'il me copie la valeur de la
cellule à la gauche de où j'ai tapé "D" et qu'il me copie cette valeur dans la dernière cellule vide de la
colonne A de la Feuil "Devis"
Me suis je fais comprendre...
Encore merci pour votre aide !
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Ca bug dès la la 1ère ligne.... Private Sub Worksheet_Change(ByVal Target
As Range)
Est-ce dû que j'ai déjà une autre macro que m'avait réalisé Mich qui
commence de la même façon mais pour autre chose...
Ne peut-on pas avoir le même Private Sub Worksheet_Change(ByVal Target As
Range) de la même Feuil pour diverses éléments souhaités...
Merci
Manu
"Jacky" a écrit dans le message de groupe de discussion :
lv7gif$95m$
Bonsoir,....copie cette valeur dans la dernière cellule vide de la colonne A
Ceci dans le module de la feuille en question
'------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Double
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("d2:d" & Cells(Rows.Count,
"c").End(xlUp).Row)) Is Nothing Then
If UCase(Target) = "D" Then
x = Target.Offset(, -1).Value
With Sheets("Devis")
.Range("a" & .Cells(.Rows.Count, "a").End(xlUp).Row + 1) = x
End With
End If
End If
End Sub
'--------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
lv7d7m$b4$Bonsoir,
Ca ressemble à une ficelle précédente où Jacky et Mich m'avait solutionné
le problème, j'ai tenté avec ce qu'ils m'ont donné d'adapter... mais
vraiment impossible ! Aussi, je vous demande encore un coup de main....
J'ai dans une colonne C des formules
Je souhaiterais que lorsque je tape "D" (peu importe la casse) dans la
col D qu'il me copie la valeur de la cellule à la gauche de où j'ai tapé
"D" et qu'il me copie cette valeur dans la dernière cellule vide de la
colonne A de la Feuil "Devis"
Me suis je fais comprendre...
Encore merci pour votre aide !
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
Ca bug dès la la 1ère ligne.... Private Sub Worksheet_Change(ByVal Target
As Range)
Est-ce dû que j'ai déjà une autre macro que m'avait réalisé Mich qui
commence de la même façon mais pour autre chose...
Ne peut-on pas avoir le même Private Sub Worksheet_Change(ByVal Target As
Range) de la même Feuil pour diverses éléments souhaités...
Merci
Manu
"Jacky" a écrit dans le message de groupe de discussion :
lv7gif$95m$1@speranza.aioe.org...
Bonsoir,
....copie cette valeur dans la dernière cellule vide de la colonne A
Ceci dans le module de la feuille en question
'------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Double
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("d2:d" & Cells(Rows.Count,
"c").End(xlUp).Row)) Is Nothing Then
If UCase(Target) = "D" Then
x = Target.Offset(, -1).Value
With Sheets("Devis")
.Range("a" & .Cells(.Rows.Count, "a").End(xlUp).Row + 1) = x
End With
End If
End If
End Sub
'--------------------
--
Salutations
JJ
"Manu" <manuinf60@gmail.com> a écrit dans le message de news:
lv7d7m$b4$1@speranza.aioe.org...
Bonsoir,
Ca ressemble à une ficelle précédente où Jacky et Mich m'avait solutionné
le problème, j'ai tenté avec ce qu'ils m'ont donné d'adapter... mais
vraiment impossible ! Aussi, je vous demande encore un coup de main....
J'ai dans une colonne C des formules
Je souhaiterais que lorsque je tape "D" (peu importe la casse) dans la
col D qu'il me copie la valeur de la cellule à la gauche de où j'ai tapé
"D" et qu'il me copie cette valeur dans la dernière cellule vide de la
colonne A de la Feuil "Devis"
Me suis je fais comprendre...
Encore merci pour votre aide !
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
Ca bug dès la la 1ère ligne.... Private Sub Worksheet_Change(ByVal Target
As Range)
Est-ce dû que j'ai déjà une autre macro que m'avait réalisé Mich qui
commence de la même façon mais pour autre chose...
Ne peut-on pas avoir le même Private Sub Worksheet_Change(ByVal Target As
Range) de la même Feuil pour diverses éléments souhaités...
Merci
Manu
"Jacky" a écrit dans le message de groupe de discussion :
lv7gif$95m$
Bonsoir,....copie cette valeur dans la dernière cellule vide de la colonne A
Ceci dans le module de la feuille en question
'------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Double
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("d2:d" & Cells(Rows.Count,
"c").End(xlUp).Row)) Is Nothing Then
If UCase(Target) = "D" Then
x = Target.Offset(, -1).Value
With Sheets("Devis")
.Range("a" & .Cells(.Rows.Count, "a").End(xlUp).Row + 1) = x
End With
End If
End If
End Sub
'--------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
lv7d7m$b4$Bonsoir,
Ca ressemble à une ficelle précédente où Jacky et Mich m'avait solutionné
le problème, j'ai tenté avec ce qu'ils m'ont donné d'adapter... mais
vraiment impossible ! Aussi, je vous demande encore un coup de main....
J'ai dans une colonne C des formules
Je souhaiterais que lorsque je tape "D" (peu importe la casse) dans la
col D qu'il me copie la valeur de la cellule à la gauche de où j'ai tapé
"D" et qu'il me copie cette valeur dans la dernière cellule vide de la
colonne A de la Feuil "Devis"
Me suis je fais comprendre...
Encore merci pour votre aide !
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
La voici...
Set Rg = Intersect(Target, Range("C:C"))
'Mich
If Not Rg Is Nothing Then
For Each C In Rg
Call Création_Répertoire(C)
Next
End If
Set Rg = Intersect(Target, Range("D:D"))
If Not Rg Is Nothing Then
If Rg.Cells.Count = 1 Then
If LCase(Rg) = "x" Then
LeRep = Chemin & Rg.Offset(, -1)
If Dir(LeRep, vbDirectory) = "" Then
Call Création_Répertoire(Rg.Offset(, -1))
Application.Wait (Now() + TimeValue("00:00:02"))
Application.EnableEvents = False
End If
If Rg.Offset(, -1) = "" Then Exit Sub
Call Choisir_Le_Fichier(LeRep & "")
Application.EnableEvents = False
Rg = ""
Application.EnableEvents = True
End If
End If
End If
End Sub
Manu
"Jacky" a écrit dans le message de groupe de discussion : lv7hgc$bgj$
Re...
Il faudra l'integré dans la même macro "Worksheet_Change" dejà existante
Donne la macro que tu utilises.
--
Salutations
JJ
"Manu" a écrit dans le message de news: lv7h3q$aij$Ca bug dès la la 1ère ligne.... Private Sub Worksheet_Change(ByVal Target As Range)
Est-ce dû que j'ai déjà une autre macro que m'avait réalisé Mich qui commence de la même façon mais pour
autre chose...
Ne peut-on pas avoir le même Private Sub Worksheet_Change(ByVal Target As Range) de la même Feuil pour
diverses éléments souhaités...
Merci
Manu
"Jacky" a écrit dans le message de groupe de discussion : lv7gif$95m$
Bonsoir,....copie cette valeur dans la dernière cellule vide de la colonne A
Ceci dans le module de la feuille en question
'------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Double
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("d2:d" & Cells(Rows.Count, "c").End(xlUp).Row)) Is Nothing Then
If UCase(Target) = "D" Then
x = Target.Offset(, -1).Value
With Sheets("Devis")
.Range("a" & .Cells(.Rows.Count, "a").End(xlUp).Row + 1) = x
End With
End If
End If
End Sub
'--------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news: lv7d7m$b4$Bonsoir,
Ca ressemble à une ficelle précédente où Jacky et Mich m'avait solutionné le problème, j'ai tenté avec ce
qu'ils m'ont donné d'adapter... mais vraiment impossible ! Aussi, je vous demande encore un coup de
main....
J'ai dans une colonne C des formules
Je souhaiterais que lorsque je tape "D" (peu importe la casse) dans la col D qu'il me copie la valeur de
la cellule à la gauche de où j'ai tapé "D" et qu'il me copie cette valeur dans la dernière cellule vide de
la colonne A de la Feuil "Devis"
Me suis je fais comprendre...
Encore merci pour votre aide !
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
La voici...
Set Rg = Intersect(Target, Range("C:C"))
'Mich
If Not Rg Is Nothing Then
For Each C In Rg
Call Création_Répertoire(C)
Next
End If
Set Rg = Intersect(Target, Range("D:D"))
If Not Rg Is Nothing Then
If Rg.Cells.Count = 1 Then
If LCase(Rg) = "x" Then
LeRep = Chemin & Rg.Offset(, -1)
If Dir(LeRep, vbDirectory) = "" Then
Call Création_Répertoire(Rg.Offset(, -1))
Application.Wait (Now() + TimeValue("00:00:02"))
Application.EnableEvents = False
End If
If Rg.Offset(, -1) = "" Then Exit Sub
Call Choisir_Le_Fichier(LeRep & "")
Application.EnableEvents = False
Rg = ""
Application.EnableEvents = True
End If
End If
End If
End Sub
Manu
"Jacky" a écrit dans le message de groupe de discussion : lv7hgc$bgj$1@speranza.aioe.org...
Re...
Il faudra l'integré dans la même macro "Worksheet_Change" dejà existante
Donne la macro que tu utilises.
--
Salutations
JJ
"Manu" <manuinf60@gmail.com> a écrit dans le message de news: lv7h3q$aij$1@speranza.aioe.org...
Ca bug dès la la 1ère ligne.... Private Sub Worksheet_Change(ByVal Target As Range)
Est-ce dû que j'ai déjà une autre macro que m'avait réalisé Mich qui commence de la même façon mais pour
autre chose...
Ne peut-on pas avoir le même Private Sub Worksheet_Change(ByVal Target As Range) de la même Feuil pour
diverses éléments souhaités...
Merci
Manu
"Jacky" a écrit dans le message de groupe de discussion : lv7gif$95m$1@speranza.aioe.org...
Bonsoir,
....copie cette valeur dans la dernière cellule vide de la colonne A
Ceci dans le module de la feuille en question
'------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Double
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("d2:d" & Cells(Rows.Count, "c").End(xlUp).Row)) Is Nothing Then
If UCase(Target) = "D" Then
x = Target.Offset(, -1).Value
With Sheets("Devis")
.Range("a" & .Cells(.Rows.Count, "a").End(xlUp).Row + 1) = x
End With
End If
End If
End Sub
'--------------------
--
Salutations
JJ
"Manu" <manuinf60@gmail.com> a écrit dans le message de news: lv7d7m$b4$1@speranza.aioe.org...
Bonsoir,
Ca ressemble à une ficelle précédente où Jacky et Mich m'avait solutionné le problème, j'ai tenté avec ce
qu'ils m'ont donné d'adapter... mais vraiment impossible ! Aussi, je vous demande encore un coup de
main....
J'ai dans une colonne C des formules
Je souhaiterais que lorsque je tape "D" (peu importe la casse) dans la col D qu'il me copie la valeur de
la cellule à la gauche de où j'ai tapé "D" et qu'il me copie cette valeur dans la dernière cellule vide de
la colonne A de la Feuil "Devis"
Me suis je fais comprendre...
Encore merci pour votre aide !
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
La voici...
Set Rg = Intersect(Target, Range("C:C"))
'Mich
If Not Rg Is Nothing Then
For Each C In Rg
Call Création_Répertoire(C)
Next
End If
Set Rg = Intersect(Target, Range("D:D"))
If Not Rg Is Nothing Then
If Rg.Cells.Count = 1 Then
If LCase(Rg) = "x" Then
LeRep = Chemin & Rg.Offset(, -1)
If Dir(LeRep, vbDirectory) = "" Then
Call Création_Répertoire(Rg.Offset(, -1))
Application.Wait (Now() + TimeValue("00:00:02"))
Application.EnableEvents = False
End If
If Rg.Offset(, -1) = "" Then Exit Sub
Call Choisir_Le_Fichier(LeRep & "")
Application.EnableEvents = False
Rg = ""
Application.EnableEvents = True
End If
End If
End If
End Sub
Manu
"Jacky" a écrit dans le message de groupe de discussion : lv7hgc$bgj$
Re...
Il faudra l'integré dans la même macro "Worksheet_Change" dejà existante
Donne la macro que tu utilises.
--
Salutations
JJ
"Manu" a écrit dans le message de news: lv7h3q$aij$Ca bug dès la la 1ère ligne.... Private Sub Worksheet_Change(ByVal Target As Range)
Est-ce dû que j'ai déjà une autre macro que m'avait réalisé Mich qui commence de la même façon mais pour
autre chose...
Ne peut-on pas avoir le même Private Sub Worksheet_Change(ByVal Target As Range) de la même Feuil pour
diverses éléments souhaités...
Merci
Manu
"Jacky" a écrit dans le message de groupe de discussion : lv7gif$95m$
Bonsoir,....copie cette valeur dans la dernière cellule vide de la colonne A
Ceci dans le module de la feuille en question
'------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Double
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("d2:d" & Cells(Rows.Count, "c").End(xlUp).Row)) Is Nothing Then
If UCase(Target) = "D" Then
x = Target.Offset(, -1).Value
With Sheets("Devis")
.Range("a" & .Cells(.Rows.Count, "a").End(xlUp).Row + 1) = x
End With
End If
End If
End Sub
'--------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news: lv7d7m$b4$Bonsoir,
Ca ressemble à une ficelle précédente où Jacky et Mich m'avait solutionné le problème, j'ai tenté avec ce
qu'ils m'ont donné d'adapter... mais vraiment impossible ! Aussi, je vous demande encore un coup de
main....
J'ai dans une colonne C des formules
Je souhaiterais que lorsque je tape "D" (peu importe la casse) dans la col D qu'il me copie la valeur de
la cellule à la gauche de où j'ai tapé "D" et qu'il me copie cette valeur dans la dernière cellule vide de
la colonne A de la Feuil "Devis"
Me suis je fais comprendre...
Encore merci pour votre aide !
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
La voici...
Set Rg = Intersect(Target, Range("C:C"))
'Mich
If Not Rg Is Nothing Then
For Each C In Rg
Call Création_Répertoire(C)
Next
End If
Set Rg = Intersect(Target, Range("D:D"))
If Not Rg Is Nothing Then
If Rg.Cells.Count = 1 Then
If LCase(Rg) = "x" Then
LeRep = Chemin & Rg.Offset(, -1)
If Dir(LeRep, vbDirectory) = "" Then
Call Création_Répertoire(Rg.Offset(, -1))
Application.Wait (Now() + TimeValue("00:00:02"))
Application.EnableEvents = False
End If
If Rg.Offset(, -1) = "" Then Exit Sub
Call Choisir_Le_Fichier(LeRep & "")
Application.EnableEvents = False
Rg = ""
Application.EnableEvents = True
End If
End If
End If
End Sub
Manu
"Jacky" a écrit dans le message de groupe de discussion :
lv7hgc$bgj$
Re...
Il faudra l'integré dans la même macro "Worksheet_Change" dejà existante
Donne la macro que tu utilises.
--
Salutations
JJ
"Manu" a écrit dans le message de news:
lv7h3q$aij$Ca bug dès la la 1ère ligne.... Private Sub Worksheet_Change(ByVal Target
As Range)
Est-ce dû que j'ai déjà une autre macro que m'avait réalisé Mich qui
commence de la même façon mais pour autre chose...
Ne peut-on pas avoir le même Private Sub Worksheet_Change(ByVal Target As
Range) de la même Feuil pour diverses éléments souhaités...
Merci
Manu
"Jacky" a écrit dans le message de groupe de discussion :
lv7gif$95m$
Bonsoir,....copie cette valeur dans la dernière cellule vide de la colonne A
Ceci dans le module de la feuille en question
'------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Double
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("d2:d" & Cells(Rows.Count,
"c").End(xlUp).Row)) Is Nothing Then
If UCase(Target) = "D" Then
x = Target.Offset(, -1).Value
With Sheets("Devis")
.Range("a" & .Cells(.Rows.Count, "a").End(xlUp).Row + 1) = x
End With
End If
End If
End Sub
'--------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
lv7d7m$b4$Bonsoir,
Ca ressemble à une ficelle précédente où Jacky et Mich m'avait
solutionné le problème, j'ai tenté avec ce qu'ils m'ont donné
d'adapter... mais vraiment impossible ! Aussi, je vous demande encore un
coup de main....
J'ai dans une colonne C des formules
Je souhaiterais que lorsque je tape "D" (peu importe la casse) dans la
col D qu'il me copie la valeur de la cellule à la gauche de où j'ai tapé
"D" et qu'il me copie cette valeur dans la dernière cellule vide de la
colonne A de la Feuil "Devis"
Me suis je fais comprendre...
Encore merci pour votre aide !
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
La voici...
Set Rg = Intersect(Target, Range("C:C"))
'Mich
If Not Rg Is Nothing Then
For Each C In Rg
Call Création_Répertoire(C)
Next
End If
Set Rg = Intersect(Target, Range("D:D"))
If Not Rg Is Nothing Then
If Rg.Cells.Count = 1 Then
If LCase(Rg) = "x" Then
LeRep = Chemin & Rg.Offset(, -1)
If Dir(LeRep, vbDirectory) = "" Then
Call Création_Répertoire(Rg.Offset(, -1))
Application.Wait (Now() + TimeValue("00:00:02"))
Application.EnableEvents = False
End If
If Rg.Offset(, -1) = "" Then Exit Sub
Call Choisir_Le_Fichier(LeRep & "")
Application.EnableEvents = False
Rg = ""
Application.EnableEvents = True
End If
End If
End If
End Sub
Manu
"Jacky" a écrit dans le message de groupe de discussion :
lv7hgc$bgj$1@speranza.aioe.org...
Re...
Il faudra l'integré dans la même macro "Worksheet_Change" dejà existante
Donne la macro que tu utilises.
--
Salutations
JJ
"Manu" <manuinf60@gmail.com> a écrit dans le message de news:
lv7h3q$aij$1@speranza.aioe.org...
Ca bug dès la la 1ère ligne.... Private Sub Worksheet_Change(ByVal Target
As Range)
Est-ce dû que j'ai déjà une autre macro que m'avait réalisé Mich qui
commence de la même façon mais pour autre chose...
Ne peut-on pas avoir le même Private Sub Worksheet_Change(ByVal Target As
Range) de la même Feuil pour diverses éléments souhaités...
Merci
Manu
"Jacky" a écrit dans le message de groupe de discussion :
lv7gif$95m$1@speranza.aioe.org...
Bonsoir,
....copie cette valeur dans la dernière cellule vide de la colonne A
Ceci dans le module de la feuille en question
'------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Double
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("d2:d" & Cells(Rows.Count,
"c").End(xlUp).Row)) Is Nothing Then
If UCase(Target) = "D" Then
x = Target.Offset(, -1).Value
With Sheets("Devis")
.Range("a" & .Cells(.Rows.Count, "a").End(xlUp).Row + 1) = x
End With
End If
End If
End Sub
'--------------------
--
Salutations
JJ
"Manu" <manuinf60@gmail.com> a écrit dans le message de news:
lv7d7m$b4$1@speranza.aioe.org...
Bonsoir,
Ca ressemble à une ficelle précédente où Jacky et Mich m'avait
solutionné le problème, j'ai tenté avec ce qu'ils m'ont donné
d'adapter... mais vraiment impossible ! Aussi, je vous demande encore un
coup de main....
J'ai dans une colonne C des formules
Je souhaiterais que lorsque je tape "D" (peu importe la casse) dans la
col D qu'il me copie la valeur de la cellule à la gauche de où j'ai tapé
"D" et qu'il me copie cette valeur dans la dernière cellule vide de la
colonne A de la Feuil "Devis"
Me suis je fais comprendre...
Encore merci pour votre aide !
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
La voici...
Set Rg = Intersect(Target, Range("C:C"))
'Mich
If Not Rg Is Nothing Then
For Each C In Rg
Call Création_Répertoire(C)
Next
End If
Set Rg = Intersect(Target, Range("D:D"))
If Not Rg Is Nothing Then
If Rg.Cells.Count = 1 Then
If LCase(Rg) = "x" Then
LeRep = Chemin & Rg.Offset(, -1)
If Dir(LeRep, vbDirectory) = "" Then
Call Création_Répertoire(Rg.Offset(, -1))
Application.Wait (Now() + TimeValue("00:00:02"))
Application.EnableEvents = False
End If
If Rg.Offset(, -1) = "" Then Exit Sub
Call Choisir_Le_Fichier(LeRep & "")
Application.EnableEvents = False
Rg = ""
Application.EnableEvents = True
End If
End If
End If
End Sub
Manu
"Jacky" a écrit dans le message de groupe de discussion :
lv7hgc$bgj$
Re...
Il faudra l'integré dans la même macro "Worksheet_Change" dejà existante
Donne la macro que tu utilises.
--
Salutations
JJ
"Manu" a écrit dans le message de news:
lv7h3q$aij$Ca bug dès la la 1ère ligne.... Private Sub Worksheet_Change(ByVal Target
As Range)
Est-ce dû que j'ai déjà une autre macro que m'avait réalisé Mich qui
commence de la même façon mais pour autre chose...
Ne peut-on pas avoir le même Private Sub Worksheet_Change(ByVal Target As
Range) de la même Feuil pour diverses éléments souhaités...
Merci
Manu
"Jacky" a écrit dans le message de groupe de discussion :
lv7gif$95m$
Bonsoir,....copie cette valeur dans la dernière cellule vide de la colonne A
Ceci dans le module de la feuille en question
'------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Double
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("d2:d" & Cells(Rows.Count,
"c").End(xlUp).Row)) Is Nothing Then
If UCase(Target) = "D" Then
x = Target.Offset(, -1).Value
With Sheets("Devis")
.Range("a" & .Cells(.Rows.Count, "a").End(xlUp).Row + 1) = x
End With
End If
End If
End Sub
'--------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
lv7d7m$b4$Bonsoir,
Ca ressemble à une ficelle précédente où Jacky et Mich m'avait
solutionné le problème, j'ai tenté avec ce qu'ils m'ont donné
d'adapter... mais vraiment impossible ! Aussi, je vous demande encore un
coup de main....
J'ai dans une colonne C des formules
Je souhaiterais que lorsque je tape "D" (peu importe la casse) dans la
col D qu'il me copie la valeur de la cellule à la gauche de où j'ai tapé
"D" et qu'il me copie cette valeur dans la dernière cellule vide de la
colonne A de la Feuil "Devis"
Me suis je fais comprendre...
Encore merci pour votre aide !
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com