Salut à toi
Pour simplifier j'ai mis les données dans le même ordre ligne 6 de l' onglet
TCD et ligne 4 de l'onglet LOTISSEMENT
J'espère que celà ne représente pas pour toi un inconvénient
Je te propose ainsi ce code :
i = 7
Do While i < Sheets("TCD").Range("A65535").End(xlUp).Offset(1, 0). Row
Ligne = 0
On Error Resume Next
Ligne = Sheets("LOTISSEMENT").Range("C4", "C" &
Sheets("LOTISSEMENT").Range("C65535").End(xlUp).Row).Find(What:=Sheets( "TCD").Range("A" & i), After:=Sheets("LOTISSEMENT").Range("C4"), LookI n:=xlValues, _
LookAt:=xlWhole).Row
If Ligne > 4 Then
For j = 0 To 11
If Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j).Valu e = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j).Value =
Sheets("TCD").Cells(i, Range("AL1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j).Val ue = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j).Value =
Sheets("TCD").Cells(i, Range("N1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j).Val ue = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j).Value =
Sheets("TCD").Cells(i, Range("B1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j).Val ue = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j).Value =
Sheets("TCD").Cells(i, Range("Z1").Column + j).Value
End If
Next
End If
i = i + 1
Loop
Sur ce lien ton document adapté ainsi :
http://www.cijoint.fr/cjlink.php?file=cj200902/cijuAFLY9O.xls
ouvres le et clique sur le bouton "Traitement" onglet LOTISSEMENT
Donnes moi ton avis !!!!
Salut à toi
Pour simplifier j'ai mis les données dans le même ordre ligne 6 de l' onglet
TCD et ligne 4 de l'onglet LOTISSEMENT
J'espère que celà ne représente pas pour toi un inconvénient
Je te propose ainsi ce code :
i = 7
Do While i < Sheets("TCD").Range("A65535").End(xlUp).Offset(1, 0). Row
Ligne = 0
On Error Resume Next
Ligne = Sheets("LOTISSEMENT").Range("C4", "C" &
Sheets("LOTISSEMENT").Range("C65535").End(xlUp).Row).Find(What:=Sheets( "TCD").Range("A" & i), After:=Sheets("LOTISSEMENT").Range("C4"), LookI n:=xlValues, _
LookAt:=xlWhole).Row
If Ligne > 4 Then
For j = 0 To 11
If Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j).Valu e = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j).Value =
Sheets("TCD").Cells(i, Range("AL1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j).Val ue = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j).Value =
Sheets("TCD").Cells(i, Range("N1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j).Val ue = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j).Value =
Sheets("TCD").Cells(i, Range("B1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j).Val ue = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j).Value =
Sheets("TCD").Cells(i, Range("Z1").Column + j).Value
End If
Next
End If
i = i + 1
Loop
Sur ce lien ton document adapté ainsi :
http://www.cijoint.fr/cjlink.php?file=cj200902/cijuAFLY9O.xls
ouvres le et clique sur le bouton "Traitement" onglet LOTISSEMENT
Donnes moi ton avis !!!!
Salut à toi
Pour simplifier j'ai mis les données dans le même ordre ligne 6 de l' onglet
TCD et ligne 4 de l'onglet LOTISSEMENT
J'espère que celà ne représente pas pour toi un inconvénient
Je te propose ainsi ce code :
i = 7
Do While i < Sheets("TCD").Range("A65535").End(xlUp).Offset(1, 0). Row
Ligne = 0
On Error Resume Next
Ligne = Sheets("LOTISSEMENT").Range("C4", "C" &
Sheets("LOTISSEMENT").Range("C65535").End(xlUp).Row).Find(What:=Sheets( "TCD").Range("A" & i), After:=Sheets("LOTISSEMENT").Range("C4"), LookI n:=xlValues, _
LookAt:=xlWhole).Row
If Ligne > 4 Then
For j = 0 To 11
If Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j).Valu e = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j).Value =
Sheets("TCD").Cells(i, Range("AL1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j).Val ue = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j).Value =
Sheets("TCD").Cells(i, Range("N1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j).Val ue = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j).Value =
Sheets("TCD").Cells(i, Range("B1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j).Val ue = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j).Value =
Sheets("TCD").Cells(i, Range("Z1").Column + j).Value
End If
Next
End If
i = i + 1
Loop
Sur ce lien ton document adapté ainsi :
http://www.cijoint.fr/cjlink.php?file=cj200902/cijuAFLY9O.xls
ouvres le et clique sur le bouton "Traitement" onglet LOTISSEMENT
Donnes moi ton avis !!!!
Salut à toi
Pour simplifier j'ai mis les données dans le même ordre ligne 6 de l' onglet
TCD et ligne 4 de l'onglet LOTISSEMENT
J'espère que celà ne représente pas pour toi un inconvénient
Je te propose ainsi ce code :
i = 7
Do While i < Sheets("TCD").Range("A65535").End(xlUp).Offset(1, 0). Row
Ligne = 0
On Error Resume Next
Ligne = Sheets("LOTISSEMENT").Range("C4", "C" &
Sheets("LOTISSEMENT").Range("C65535").End(xlUp).Row).Find(What:=Sheets( "TCD").Range("A" & i), After:=Sheets("LOTISSEMENT").Range("C4"), LookI n:=xlValues, _
LookAt:=xlWhole).Row
If Ligne > 4 Then
For j = 0 To 11
If Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j).Valu e = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j).Value =
Sheets("TCD").Cells(i, Range("AL1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j).Val ue = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j).Value =
Sheets("TCD").Cells(i, Range("N1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j).Val ue = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j).Value =
Sheets("TCD").Cells(i, Range("B1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j).Val ue = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j).Value =
Sheets("TCD").Cells(i, Range("Z1").Column + j).Value
End If
Next
End If
i = i + 1
Loop
Sur ce lien ton document adapté ainsi :
http://www.cijoint.fr/cjlink.php?file=cj200902/cijuAFLY9O.xls
ouvres le et clique sur le bouton "Traitement" onglet LOTISSEMENT
Donnes moi ton avis !!!!
Salut à toi
Pour simplifier j'ai mis les données dans le même ordre ligne 6 de l' onglet
TCD et ligne 4 de l'onglet LOTISSEMENT
J'espère que celà ne représente pas pour toi un inconvénient
Je te propose ainsi ce code :
i = 7
Do While i < Sheets("TCD").Range("A65535").End(xlUp).Offset(1, 0). Row
Ligne = 0
On Error Resume Next
Ligne = Sheets("LOTISSEMENT").Range("C4", "C" &
Sheets("LOTISSEMENT").Range("C65535").End(xlUp).Row).Find(What:=Sheets( "TCD").Range("A" & i), After:=Sheets("LOTISSEMENT").Range("C4"), LookI n:=xlValues, _
LookAt:=xlWhole).Row
If Ligne > 4 Then
For j = 0 To 11
If Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j).Valu e = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j).Value =
Sheets("TCD").Cells(i, Range("AL1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j).Val ue = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j).Value =
Sheets("TCD").Cells(i, Range("N1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j).Val ue = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j).Value =
Sheets("TCD").Cells(i, Range("B1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j).Val ue = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j).Value =
Sheets("TCD").Cells(i, Range("Z1").Column + j).Value
End If
Next
End If
i = i + 1
Loop
Sur ce lien ton document adapté ainsi :
http://www.cijoint.fr/cjlink.php?file=cj200902/cijuAFLY9O.xls
ouvres le et clique sur le bouton "Traitement" onglet LOTISSEMENT
Donnes moi ton avis !!!!
Salut à toi
Pour simplifier j'ai mis les données dans le même ordre ligne 6 de l' onglet
TCD et ligne 4 de l'onglet LOTISSEMENT
J'espère que celà ne représente pas pour toi un inconvénient
Je te propose ainsi ce code :
i = 7
Do While i < Sheets("TCD").Range("A65535").End(xlUp).Offset(1, 0). Row
Ligne = 0
On Error Resume Next
Ligne = Sheets("LOTISSEMENT").Range("C4", "C" &
Sheets("LOTISSEMENT").Range("C65535").End(xlUp).Row).Find(What:=Sheets( "TCD").Range("A" & i), After:=Sheets("LOTISSEMENT").Range("C4"), LookI n:=xlValues, _
LookAt:=xlWhole).Row
If Ligne > 4 Then
For j = 0 To 11
If Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j).Valu e = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j).Value =
Sheets("TCD").Cells(i, Range("AL1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j).Val ue = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j).Value =
Sheets("TCD").Cells(i, Range("N1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j).Val ue = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j).Value =
Sheets("TCD").Cells(i, Range("B1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j).Val ue = ""
Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j).Value =
Sheets("TCD").Cells(i, Range("Z1").Column + j).Value
End If
Next
End If
i = i + 1
Loop
Sur ce lien ton document adapté ainsi :
http://www.cijoint.fr/cjlink.php?file=cj200902/cijuAFLY9O.xls
ouvres le et clique sur le bouton "Traitement" onglet LOTISSEMENT
Donnes moi ton avis !!!!
Rebonjour à toi
Je te propose ce nouveau code qui tient compte de l'ordre des colonnes :
i = 7
Do While i < Sheets("TCD").Range("A65535").End(xlUp).Offset(1, 0). Row
Ligne = 0
On Error Resume Next
Ligne = Sheets("LOTISSEMENT").Range("C4", "C" &
Sheets("LOTISSEMENT").Range("C65535").End(xlUp).Row).Find(What:=Sheets( "TCD").Range("A" & i), After:=Sheets("LOTISSEMENT").Range("C4"), LookI n:=xlValues, _
LookAt:=xlWhole).Row
If Ligne > 4 Then
n = 1
For j = 0 To 11
If n = 4 Then
n = 0
k = 0
End If
If n = 1 Then
k = 2
End If
If n = 2 Then
k = 0
End If
If n = 3 Then
k = -2
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j + k). Value =
"" Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j + k).Val ue =
Sheets("TCD").Cells(i, Range("AL1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j + k) .Value
= "" Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j + k).Va lue =
Sheets("TCD").Cells(i, Range("N1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j + k) .Value
= "" Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j + k).Va lue =
Sheets("TCD").Cells(i, Range("B1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j + k) .Value
= "" Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j + k).Va lue =
Sheets("TCD").Cells(i, Range("Z1").Column + j).Value
End If
n = n + 1
Next
End If
i = i + 1
Loop
En analysant le résultat j'ai constaté que pour une même catégori e dans le
tableau TCD sur une colonne 2 valeurs étaient possible exemple :
Colonne AR pour Texte 4 j'ai la valeur 16 (ligne 10) et la valeur 10 (lig ne
15)
Colonne AR pour Texte 5 j'ai la valeur 11 (ligne 11) et la valeur 64 (lig ne
16)
Seules les premières valeurs sont rapportées dans l'onglet LOTISSEMEN T
Je ne peux pas ramener plusieurs valeurs pour une cellule donnée
Il faut choisir
Merci de m'apporter des précisions pour ces cas
Sur ce lien ton document adapté avec ce nouveau code :
http://www.cijoint.fr/cjlink.php?file=cj200902/cijPTLwbBV.xls
Fais des essais et dis moi !!!!
Rebonjour à toi
Je te propose ce nouveau code qui tient compte de l'ordre des colonnes :
i = 7
Do While i < Sheets("TCD").Range("A65535").End(xlUp).Offset(1, 0). Row
Ligne = 0
On Error Resume Next
Ligne = Sheets("LOTISSEMENT").Range("C4", "C" &
Sheets("LOTISSEMENT").Range("C65535").End(xlUp).Row).Find(What:=Sheets( "TCD").Range("A" & i), After:=Sheets("LOTISSEMENT").Range("C4"), LookI n:=xlValues, _
LookAt:=xlWhole).Row
If Ligne > 4 Then
n = 1
For j = 0 To 11
If n = 4 Then
n = 0
k = 0
End If
If n = 1 Then
k = 2
End If
If n = 2 Then
k = 0
End If
If n = 3 Then
k = -2
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j + k). Value =
"" Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j + k).Val ue =
Sheets("TCD").Cells(i, Range("AL1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j + k) .Value
= "" Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j + k).Va lue =
Sheets("TCD").Cells(i, Range("N1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j + k) .Value
= "" Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j + k).Va lue =
Sheets("TCD").Cells(i, Range("B1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j + k) .Value
= "" Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j + k).Va lue =
Sheets("TCD").Cells(i, Range("Z1").Column + j).Value
End If
n = n + 1
Next
End If
i = i + 1
Loop
En analysant le résultat j'ai constaté que pour une même catégori e dans le
tableau TCD sur une colonne 2 valeurs étaient possible exemple :
Colonne AR pour Texte 4 j'ai la valeur 16 (ligne 10) et la valeur 10 (lig ne
15)
Colonne AR pour Texte 5 j'ai la valeur 11 (ligne 11) et la valeur 64 (lig ne
16)
Seules les premières valeurs sont rapportées dans l'onglet LOTISSEMEN T
Je ne peux pas ramener plusieurs valeurs pour une cellule donnée
Il faut choisir
Merci de m'apporter des précisions pour ces cas
Sur ce lien ton document adapté avec ce nouveau code :
http://www.cijoint.fr/cjlink.php?file=cj200902/cijPTLwbBV.xls
Fais des essais et dis moi !!!!
Rebonjour à toi
Je te propose ce nouveau code qui tient compte de l'ordre des colonnes :
i = 7
Do While i < Sheets("TCD").Range("A65535").End(xlUp).Offset(1, 0). Row
Ligne = 0
On Error Resume Next
Ligne = Sheets("LOTISSEMENT").Range("C4", "C" &
Sheets("LOTISSEMENT").Range("C65535").End(xlUp).Row).Find(What:=Sheets( "TCD").Range("A" & i), After:=Sheets("LOTISSEMENT").Range("C4"), LookI n:=xlValues, _
LookAt:=xlWhole).Row
If Ligne > 4 Then
n = 1
For j = 0 To 11
If n = 4 Then
n = 0
k = 0
End If
If n = 1 Then
k = 2
End If
If n = 2 Then
k = 0
End If
If n = 3 Then
k = -2
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j + k). Value =
"" Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j + k).Val ue =
Sheets("TCD").Cells(i, Range("AL1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j + k) .Value
= "" Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j + k).Va lue =
Sheets("TCD").Cells(i, Range("N1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j + k) .Value
= "" Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j + k).Va lue =
Sheets("TCD").Cells(i, Range("B1").Column + j).Value
End If
If Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j + k) .Value
= "" Then
Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j + k).Va lue =
Sheets("TCD").Cells(i, Range("Z1").Column + j).Value
End If
n = n + 1
Next
End If
i = i + 1
Loop
En analysant le résultat j'ai constaté que pour une même catégori e dans le
tableau TCD sur une colonne 2 valeurs étaient possible exemple :
Colonne AR pour Texte 4 j'ai la valeur 16 (ligne 10) et la valeur 10 (lig ne
15)
Colonne AR pour Texte 5 j'ai la valeur 11 (ligne 11) et la valeur 64 (lig ne
16)
Seules les premières valeurs sont rapportées dans l'onglet LOTISSEMEN T
Je ne peux pas ramener plusieurs valeurs pour une cellule donnée
Il faut choisir
Merci de m'apporter des précisions pour ces cas
Sur ce lien ton document adapté avec ce nouveau code :
http://www.cijoint.fr/cjlink.php?file=cj200902/cijPTLwbBV.xls
Fais des essais et dis moi !!!!
Bonjour,
Grand merci ton code fonctionne très bien.
encore une petite question sur un TCD comment garder la mise en forme
car a l'heure actuelle dès que je le refresh et bien je perds cette
mise en forme ??
merci d'avance.
On 10 fév, 08:48, FFO wrote:
> Rebonjour à toi
> Je te propose ce nouveau code qui tient compte de l'ordre des colonnes :
> i = 7
> Do While i < Sheets("TCD").Range("A65535").End(xlUp).Offset(1, 0 ).Row
> Ligne = 0
> On Error Resume Next
> Ligne = Sheets("LOTISSEMENT").Range("C4", "C" &
> Sheets("LOTISSEMENT").Range("C65535").End(xlUp).Row).Find(What:=Sheet s("TCD").Range("A" & i), After:=Sheets("LOTISSEMENT").Range("C4"), LookIn:=xlValues, _
> LookAt:=xlWhole).Row
> If Ligne > 4 Then
> n = 1
> For j = 0 To 11
> If n = 4 Then
> n = 0
> k = 0
> End If
> If n = 1 Then
> k = 2
> End If
> If n = 2 Then
> k = 0
> End If
> If n = 3 Then
> k = -2
> End If
> If Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j + k ).Value =
> "" Then
> Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j + k).V alue =
> Sheets("TCD").Cells(i, Range("AL1").Column + j).Value
> End If
> If Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j + k).Value
> = "" Then
> Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j + k). Value =
> Sheets("TCD").Cells(i, Range("N1").Column + j).Value
> End If
> If Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j + k).Value
> = "" Then
> Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j + k). Value =
> Sheets("TCD").Cells(i, Range("B1").Column + j).Value
> End If
> If Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j + k).Value
> = "" Then
> Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j + k). Value =
> Sheets("TCD").Cells(i, Range("Z1").Column + j).Value
> End If
> n = n + 1
> Next
> End If
> i = i + 1
> Loop
> En analysant le résultat j'ai constaté que pour une même catégo rie dans le
> tableau TCD sur une colonne 2 valeurs étaient possible exemple :
> Colonne AR pour Texte 4 j'ai la valeur 16 (ligne 10) et la valeur 10 (l igne
> 15)
> Colonne AR pour Texte 5 j'ai la valeur 11 (ligne 11) et la valeur 64 (l igne
> 16)
> Seules les premières valeurs sont rapportées dans l'onglet LOTISSEM ENT
> Je ne peux pas ramener plusieurs valeurs pour une cellule donnée
> Il faut choisir
> Merci de m'apporter des précisions pour ces cas
> Sur ce lien ton document adapté avec ce nouveau code :
>http://www.cijoint.fr/cjlink.php?file=cj200902/cijPTLwbBV.xls
> Fais des essais et dis moi !!!!- Masquer le texte des messages préc édents -
- Afficher le texte des messages précédents -
Bonjour,
Grand merci ton code fonctionne très bien.
encore une petite question sur un TCD comment garder la mise en forme
car a l'heure actuelle dès que je le refresh et bien je perds cette
mise en forme ??
merci d'avance.
On 10 fév, 08:48, FFO <F...@discussions.microsoft.com> wrote:
> Rebonjour à toi
> Je te propose ce nouveau code qui tient compte de l'ordre des colonnes :
> i = 7
> Do While i < Sheets("TCD").Range("A65535").End(xlUp).Offset(1, 0 ).Row
> Ligne = 0
> On Error Resume Next
> Ligne = Sheets("LOTISSEMENT").Range("C4", "C" &
> Sheets("LOTISSEMENT").Range("C65535").End(xlUp).Row).Find(What:=Sheet s("TCD").Range("A" & i), After:=Sheets("LOTISSEMENT").Range("C4"), LookIn:=xlValues, _
> LookAt:=xlWhole).Row
> If Ligne > 4 Then
> n = 1
> For j = 0 To 11
> If n = 4 Then
> n = 0
> k = 0
> End If
> If n = 1 Then
> k = 2
> End If
> If n = 2 Then
> k = 0
> End If
> If n = 3 Then
> k = -2
> End If
> If Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j + k ).Value =
> "" Then
> Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j + k).V alue =
> Sheets("TCD").Cells(i, Range("AL1").Column + j).Value
> End If
> If Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j + k).Value
> = "" Then
> Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j + k). Value =
> Sheets("TCD").Cells(i, Range("N1").Column + j).Value
> End If
> If Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j + k).Value
> = "" Then
> Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j + k). Value =
> Sheets("TCD").Cells(i, Range("B1").Column + j).Value
> End If
> If Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j + k).Value
> = "" Then
> Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j + k). Value =
> Sheets("TCD").Cells(i, Range("Z1").Column + j).Value
> End If
> n = n + 1
> Next
> End If
> i = i + 1
> Loop
> En analysant le résultat j'ai constaté que pour une même catégo rie dans le
> tableau TCD sur une colonne 2 valeurs étaient possible exemple :
> Colonne AR pour Texte 4 j'ai la valeur 16 (ligne 10) et la valeur 10 (l igne
> 15)
> Colonne AR pour Texte 5 j'ai la valeur 11 (ligne 11) et la valeur 64 (l igne
> 16)
> Seules les premières valeurs sont rapportées dans l'onglet LOTISSEM ENT
> Je ne peux pas ramener plusieurs valeurs pour une cellule donnée
> Il faut choisir
> Merci de m'apporter des précisions pour ces cas
> Sur ce lien ton document adapté avec ce nouveau code :
>http://www.cijoint.fr/cjlink.php?file=cj200902/cijPTLwbBV.xls
> Fais des essais et dis moi !!!!- Masquer le texte des messages préc édents -
- Afficher le texte des messages précédents -
Bonjour,
Grand merci ton code fonctionne très bien.
encore une petite question sur un TCD comment garder la mise en forme
car a l'heure actuelle dès que je le refresh et bien je perds cette
mise en forme ??
merci d'avance.
On 10 fév, 08:48, FFO wrote:
> Rebonjour à toi
> Je te propose ce nouveau code qui tient compte de l'ordre des colonnes :
> i = 7
> Do While i < Sheets("TCD").Range("A65535").End(xlUp).Offset(1, 0 ).Row
> Ligne = 0
> On Error Resume Next
> Ligne = Sheets("LOTISSEMENT").Range("C4", "C" &
> Sheets("LOTISSEMENT").Range("C65535").End(xlUp).Row).Find(What:=Sheet s("TCD").Range("A" & i), After:=Sheets("LOTISSEMENT").Range("C4"), LookIn:=xlValues, _
> LookAt:=xlWhole).Row
> If Ligne > 4 Then
> n = 1
> For j = 0 To 11
> If n = 4 Then
> n = 0
> k = 0
> End If
> If n = 1 Then
> k = 2
> End If
> If n = 2 Then
> k = 0
> End If
> If n = 3 Then
> k = -2
> End If
> If Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j + k ).Value =
> "" Then
> Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j + k).V alue =
> Sheets("TCD").Cells(i, Range("AL1").Column + j).Value
> End If
> If Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j + k).Value
> = "" Then
> Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j + k). Value =
> Sheets("TCD").Cells(i, Range("N1").Column + j).Value
> End If
> If Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j + k).Value
> = "" Then
> Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j + k). Value =
> Sheets("TCD").Cells(i, Range("B1").Column + j).Value
> End If
> If Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j + k).Value
> = "" Then
> Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j + k). Value =
> Sheets("TCD").Cells(i, Range("Z1").Column + j).Value
> End If
> n = n + 1
> Next
> End If
> i = i + 1
> Loop
> En analysant le résultat j'ai constaté que pour une même catégo rie dans le
> tableau TCD sur une colonne 2 valeurs étaient possible exemple :
> Colonne AR pour Texte 4 j'ai la valeur 16 (ligne 10) et la valeur 10 (l igne
> 15)
> Colonne AR pour Texte 5 j'ai la valeur 11 (ligne 11) et la valeur 64 (l igne
> 16)
> Seules les premières valeurs sont rapportées dans l'onglet LOTISSEM ENT
> Je ne peux pas ramener plusieurs valeurs pour une cellule donnée
> Il faut choisir
> Merci de m'apporter des précisions pour ces cas
> Sur ce lien ton document adapté avec ce nouveau code :
>http://www.cijoint.fr/cjlink.php?file=cj200902/cijPTLwbBV.xls
> Fais des essais et dis moi !!!!- Masquer le texte des messages préc édents -
- Afficher le texte des messages précédents -
oups non il y a une erruer il ne tiens plus compte de la ligne avec
les OS wintel as400 etc... ??
On 10 fév, 10:15, wrote:
> Bonjour,
> Grand merci ton code fonctionne très bien.
> encore une petite question sur un TCD comment garder la mise en forme
> car a l'heure actuelle dès que je le refresh et bien je perds cette
> mise en forme ??
> merci d'avance.
> On 10 fév, 08:48, FFO wrote:
> > Rebonjour à toi
> > Je te propose ce nouveau code qui tient compte de l'ordre des colonne s :
> > i = 7
> > Do While i < Sheets("TCD").Range("A65535").End(xlUp).Offset(1, 0).Row
> > Ligne = 0
> > On Error Resume Next
> > Ligne = Sheets("LOTISSEMENT").Range("C4", "C" &
> > Sheets("LOTISSEMENT").Range("C65535").End(xlUp).Row).Find(What:=She ets("TCD").Range("A" & i), After:=Sheets("LOTISSEMENT").Range("C 4"), LookIn:=xlValues, _
> > LookAt:=xlWhole).Row
> > If Ligne > 4 Then
> > n = 1
> > For j = 0 To 11
> > If n = 4 Then
> > n = 0
> > k = 0
> > End If
> > If n = 1 Then
> > k = 2
> > End If
> > If n = 2 Then
> > k = 0
> > End If
> > If n = 3 Then
> > k = -2
> > End If
> > If Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j + k).Value =
> > "" Then
> > Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j + k) .Value =
> > Sheets("TCD").Cells(i, Range("AL1").Column + j).Value
> > End If
> > If Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j + k).Value
> > = "" Then
> > Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j + k ).Value =
> > Sheets("TCD").Cells(i, Range("N1").Column + j).Value
> > End If
> > If Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j + k).Value
> > = "" Then
> > Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j + k ).Value =
> > Sheets("TCD").Cells(i, Range("B1").Column + j).Value
> > End If
> > If Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j + k).Value
> > = "" Then
> > Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j + k ).Value =
> > Sheets("TCD").Cells(i, Range("Z1").Column + j).Value
> > End If
> > n = n + 1
> > Next
> > End If
> > i = i + 1
> > Loop
> > En analysant le résultat j'ai constaté que pour une même caté gorie dans le
> > tableau TCD sur une colonne 2 valeurs étaient possible exemple :
> > Colonne AR pour Texte 4 j'ai la valeur 16 (ligne 10) et la valeur 10 (ligne
> > 15)
> > Colonne AR pour Texte 5 j'ai la valeur 11 (ligne 11) et la valeur 64 (ligne
> > 16)
> > Seules les premières valeurs sont rapportées dans l'onglet LOTISS EMENT
> > Je ne peux pas ramener plusieurs valeurs pour une cellule donnée
> > Il faut choisir
> > Merci de m'apporter des précisions pour ces cas
> > Sur ce lien ton document adapté avec ce nouveau code :
> >http://www.cijoint.fr/cjlink.php?file=cj200902/cijPTLwbBV.xls
> > Fais des essais et dis moi !!!!- Masquer le texte des messages préc édents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
oups non il y a une erruer il ne tiens plus compte de la ligne avec
les OS wintel as400 etc... ??
On 10 fév, 10:15, bastien...@gmail.com wrote:
> Bonjour,
> Grand merci ton code fonctionne très bien.
> encore une petite question sur un TCD comment garder la mise en forme
> car a l'heure actuelle dès que je le refresh et bien je perds cette
> mise en forme ??
> merci d'avance.
> On 10 fév, 08:48, FFO <F...@discussions.microsoft.com> wrote:
> > Rebonjour à toi
> > Je te propose ce nouveau code qui tient compte de l'ordre des colonne s :
> > i = 7
> > Do While i < Sheets("TCD").Range("A65535").End(xlUp).Offset(1, 0).Row
> > Ligne = 0
> > On Error Resume Next
> > Ligne = Sheets("LOTISSEMENT").Range("C4", "C" &
> > Sheets("LOTISSEMENT").Range("C65535").End(xlUp).Row).Find(What:=She ets("TCD").Range("A" & i), After:=Sheets("LOTISSEMENT").Range("C 4"), LookIn:=xlValues, _
> > LookAt:=xlWhole).Row
> > If Ligne > 4 Then
> > n = 1
> > For j = 0 To 11
> > If n = 4 Then
> > n = 0
> > k = 0
> > End If
> > If n = 1 Then
> > k = 2
> > End If
> > If n = 2 Then
> > k = 0
> > End If
> > If n = 3 Then
> > k = -2
> > End If
> > If Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j + k).Value =
> > "" Then
> > Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j + k) .Value =
> > Sheets("TCD").Cells(i, Range("AL1").Column + j).Value
> > End If
> > If Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j + k).Value
> > = "" Then
> > Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j + k ).Value =
> > Sheets("TCD").Cells(i, Range("N1").Column + j).Value
> > End If
> > If Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j + k).Value
> > = "" Then
> > Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j + k ).Value =
> > Sheets("TCD").Cells(i, Range("B1").Column + j).Value
> > End If
> > If Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j + k).Value
> > = "" Then
> > Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j + k ).Value =
> > Sheets("TCD").Cells(i, Range("Z1").Column + j).Value
> > End If
> > n = n + 1
> > Next
> > End If
> > i = i + 1
> > Loop
> > En analysant le résultat j'ai constaté que pour une même caté gorie dans le
> > tableau TCD sur une colonne 2 valeurs étaient possible exemple :
> > Colonne AR pour Texte 4 j'ai la valeur 16 (ligne 10) et la valeur 10 (ligne
> > 15)
> > Colonne AR pour Texte 5 j'ai la valeur 11 (ligne 11) et la valeur 64 (ligne
> > 16)
> > Seules les premières valeurs sont rapportées dans l'onglet LOTISS EMENT
> > Je ne peux pas ramener plusieurs valeurs pour une cellule donnée
> > Il faut choisir
> > Merci de m'apporter des précisions pour ces cas
> > Sur ce lien ton document adapté avec ce nouveau code :
> >http://www.cijoint.fr/cjlink.php?file=cj200902/cijPTLwbBV.xls
> > Fais des essais et dis moi !!!!- Masquer le texte des messages préc édents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
oups non il y a une erruer il ne tiens plus compte de la ligne avec
les OS wintel as400 etc... ??
On 10 fév, 10:15, wrote:
> Bonjour,
> Grand merci ton code fonctionne très bien.
> encore une petite question sur un TCD comment garder la mise en forme
> car a l'heure actuelle dès que je le refresh et bien je perds cette
> mise en forme ??
> merci d'avance.
> On 10 fév, 08:48, FFO wrote:
> > Rebonjour à toi
> > Je te propose ce nouveau code qui tient compte de l'ordre des colonne s :
> > i = 7
> > Do While i < Sheets("TCD").Range("A65535").End(xlUp).Offset(1, 0).Row
> > Ligne = 0
> > On Error Resume Next
> > Ligne = Sheets("LOTISSEMENT").Range("C4", "C" &
> > Sheets("LOTISSEMENT").Range("C65535").End(xlUp).Row).Find(What:=She ets("TCD").Range("A" & i), After:=Sheets("LOTISSEMENT").Range("C 4"), LookIn:=xlValues, _
> > LookAt:=xlWhole).Row
> > If Ligne > 4 Then
> > n = 1
> > For j = 0 To 11
> > If n = 4 Then
> > n = 0
> > k = 0
> > End If
> > If n = 1 Then
> > k = 2
> > End If
> > If n = 2 Then
> > k = 0
> > End If
> > If n = 3 Then
> > k = -2
> > End If
> > If Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j + k).Value =
> > "" Then
> > Sheets("LOTISSEMENT").Cells(Ligne, Range("O1").Column + j + k) .Value =
> > Sheets("TCD").Cells(i, Range("AL1").Column + j).Value
> > End If
> > If Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j + k).Value
> > = "" Then
> > Sheets("LOTISSEMENT").Cells(Ligne, Range("AA1").Column + j + k ).Value =
> > Sheets("TCD").Cells(i, Range("N1").Column + j).Value
> > End If
> > If Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j + k).Value
> > = "" Then
> > Sheets("LOTISSEMENT").Cells(Ligne, Range("AM1").Column + j + k ).Value =
> > Sheets("TCD").Cells(i, Range("B1").Column + j).Value
> > End If
> > If Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j + k).Value
> > = "" Then
> > Sheets("LOTISSEMENT").Cells(Ligne, Range("AY1").Column + j + k ).Value =
> > Sheets("TCD").Cells(i, Range("Z1").Column + j).Value
> > End If
> > n = n + 1
> > Next
> > End If
> > i = i + 1
> > Loop
> > En analysant le résultat j'ai constaté que pour une même caté gorie dans le
> > tableau TCD sur une colonne 2 valeurs étaient possible exemple :
> > Colonne AR pour Texte 4 j'ai la valeur 16 (ligne 10) et la valeur 10 (ligne
> > 15)
> > Colonne AR pour Texte 5 j'ai la valeur 11 (ligne 11) et la valeur 64 (ligne
> > 16)
> > Seules les premières valeurs sont rapportées dans l'onglet LOTISS EMENT
> > Je ne peux pas ramener plusieurs valeurs pour une cellule donnée
> > Il faut choisir
> > Merci de m'apporter des précisions pour ces cas
> > Sur ce lien ton document adapté avec ce nouveau code :
> >http://www.cijoint.fr/cjlink.php?file=cj200902/cijPTLwbBV.xls
> > Fais des essais et dis moi !!!!- Masquer le texte des messages préc édents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Rebonjour à toi
"il ne tiens plus compte de la ligne avec
les OS wintel as400 etc... ??"
Peux tu préciser car je ne vois pas
Pour moi tout est correct
Tu n'as pas répondu à ma question :
En analysant le résultat j'ai constaté que pour une même catégori e dans le
tableau TCD sur une colonne 2 valeurs étaient possible exemple :
Colonne AR pour Texte 4 j'ai la valeur 16 (ligne 10) et la valeur 10 (lig ne
15)
Colonne AR pour Texte 5 j'ai la valeur 11 (ligne 11) et la valeur 64 (lig ne
16)
Seules les premières valeurs sont rapportées dans l'onglet LOTISSEMEN T
Je ne peux pas ramener plusieurs valeurs pour une cellule donnée
Il faut choisir
Merci de m'apporter des précisions pour ces cas
Rebonjour à toi
"il ne tiens plus compte de la ligne avec
les OS wintel as400 etc... ??"
Peux tu préciser car je ne vois pas
Pour moi tout est correct
Tu n'as pas répondu à ma question :
En analysant le résultat j'ai constaté que pour une même catégori e dans le
tableau TCD sur une colonne 2 valeurs étaient possible exemple :
Colonne AR pour Texte 4 j'ai la valeur 16 (ligne 10) et la valeur 10 (lig ne
15)
Colonne AR pour Texte 5 j'ai la valeur 11 (ligne 11) et la valeur 64 (lig ne
16)
Seules les premières valeurs sont rapportées dans l'onglet LOTISSEMEN T
Je ne peux pas ramener plusieurs valeurs pour une cellule donnée
Il faut choisir
Merci de m'apporter des précisions pour ces cas
Rebonjour à toi
"il ne tiens plus compte de la ligne avec
les OS wintel as400 etc... ??"
Peux tu préciser car je ne vois pas
Pour moi tout est correct
Tu n'as pas répondu à ma question :
En analysant le résultat j'ai constaté que pour une même catégori e dans le
tableau TCD sur une colonne 2 valeurs étaient possible exemple :
Colonne AR pour Texte 4 j'ai la valeur 16 (ligne 10) et la valeur 10 (lig ne
15)
Colonne AR pour Texte 5 j'ai la valeur 11 (ligne 11) et la valeur 64 (lig ne
16)
Seules les premières valeurs sont rapportées dans l'onglet LOTISSEMEN T
Je ne peux pas ramener plusieurs valeurs pour une cellule donnée
Il faut choisir
Merci de m'apporter des précisions pour ces cas