bonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
bonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
bonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Bonjour Thierry,
Avec les n° de tel en A et les types en B, en C :
=SI(GAUCHE(A2;2)="06";"CPL/GSM";"CPL/RTC")
Puis copier la colonne C et la coller en valeur en B.
Camille
"titou" wrote:bonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Bonjour Thierry,
Avec les n° de tel en A et les types en B, en C :
=SI(GAUCHE(A2;2)="06";"CPL/GSM";"CPL/RTC")
Puis copier la colonne C et la coller en valeur en B.
Camille
"titou" wrote:
bonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Bonjour Thierry,
Avec les n° de tel en A et les types en B, en C :
=SI(GAUCHE(A2;2)="06";"CPL/GSM";"CPL/RTC")
Puis copier la colonne C et la coller en valeur en B.
Camille
"titou" wrote:bonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Merci d'avoir répondu si rapidement je vais la testé.
Si je fais un renregistrement de macro pour mettre cette formule en VBA est
ce que c'est une bonne méthode ?Bonjour Thierry,
Avec les n° de tel en A et les types en B, en C :
=SI(GAUCHE(A2;2)="06";"CPL/GSM";"CPL/RTC")
Puis copier la colonne C et la coller en valeur en B.
Camille
"titou" wrote:bonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Merci d'avoir répondu si rapidement je vais la testé.
Si je fais un renregistrement de macro pour mettre cette formule en VBA est
ce que c'est une bonne méthode ?
Bonjour Thierry,
Avec les n° de tel en A et les types en B, en C :
=SI(GAUCHE(A2;2)="06";"CPL/GSM";"CPL/RTC")
Puis copier la colonne C et la coller en valeur en B.
Camille
"titou" wrote:
bonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Merci d'avoir répondu si rapidement je vais la testé.
Si je fais un renregistrement de macro pour mettre cette formule en VBA est
ce que c'est une bonne méthode ?Bonjour Thierry,
Avec les n° de tel en A et les types en B, en C :
=SI(GAUCHE(A2;2)="06";"CPL/GSM";"CPL/RTC")
Puis copier la colonne C et la coller en valeur en B.
Camille
"titou" wrote:bonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
bonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
bonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
bonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Salut titou
Je te propose une solution macro que tu pourras facilement adapter
Le code :
Sheets("Onglet").Select
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c = 6 And c.Offset(0, 1) = "CPL" Then
c.Offset(0, 1) = "CPL/GSM"
Else
c.Offset(0, 1) = "CPL/RTC"
End If
Next
Qui veut dire :
pour chaque valeur de c dans la plage A1: A(dernière cellule remplie)
si c = 06 et c (cellule adjacente) = "CPL"
alors
c(cellule adjacente) = "CPL/GSM"
sinon
c(cellule adjacente) = "CPL/RTC"
Tu peux mettre si tu le souhaites des conditions supplémentaires
Pour celà tu dois les rajouter comme ceci dans la ligne :
If c and c.offset(0,1) = "CPL" and condition and condition etc... then
N'oublies pas d'actualiser le mot "Onglet" en fonction du nom de ta feuille
A ta disposition pour des compléments éventuelsbonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Salut titou
Je te propose une solution macro que tu pourras facilement adapter
Le code :
Sheets("Onglet").Select
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c = 6 And c.Offset(0, 1) = "CPL" Then
c.Offset(0, 1) = "CPL/GSM"
Else
c.Offset(0, 1) = "CPL/RTC"
End If
Next
Qui veut dire :
pour chaque valeur de c dans la plage A1: A(dernière cellule remplie)
si c = 06 et c (cellule adjacente) = "CPL"
alors
c(cellule adjacente) = "CPL/GSM"
sinon
c(cellule adjacente) = "CPL/RTC"
Tu peux mettre si tu le souhaites des conditions supplémentaires
Pour celà tu dois les rajouter comme ceci dans la ligne :
If c and c.offset(0,1) = "CPL" and condition and condition etc... then
N'oublies pas d'actualiser le mot "Onglet" en fonction du nom de ta feuille
A ta disposition pour des compléments éventuels
bonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Salut titou
Je te propose une solution macro que tu pourras facilement adapter
Le code :
Sheets("Onglet").Select
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c = 6 And c.Offset(0, 1) = "CPL" Then
c.Offset(0, 1) = "CPL/GSM"
Else
c.Offset(0, 1) = "CPL/RTC"
End If
Next
Qui veut dire :
pour chaque valeur de c dans la plage A1: A(dernière cellule remplie)
si c = 06 et c (cellule adjacente) = "CPL"
alors
c(cellule adjacente) = "CPL/GSM"
sinon
c(cellule adjacente) = "CPL/RTC"
Tu peux mettre si tu le souhaites des conditions supplémentaires
Pour celà tu dois les rajouter comme ceci dans la ligne :
If c and c.offset(0,1) = "CPL" and condition and condition etc... then
N'oublies pas d'actualiser le mot "Onglet" en fonction du nom de ta feuille
A ta disposition pour des compléments éventuelsbonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Bonjour FFO,
Merci de aide et pour ce code qui marche presque bien car ,
j'ai un pb avec ce code qui me transforme tout en CPL/RTC
Merci.
ThierrySalut titou
Je te propose une solution macro que tu pourras facilement adapter
Le code :
Sheets("Onglet").Select
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c = 6 And c.Offset(0, 1) = "CPL" Then
c.Offset(0, 1) = "CPL/GSM"
Else
c.Offset(0, 1) = "CPL/RTC"
End If
Next
Qui veut dire :
pour chaque valeur de c dans la plage A1: A(dernière cellule remplie)
si c = 06 et c (cellule adjacente) = "CPL"
alors
c(cellule adjacente) = "CPL/GSM"
sinon
c(cellule adjacente) = "CPL/RTC"
Tu peux mettre si tu le souhaites des conditions supplémentaires
Pour celà tu dois les rajouter comme ceci dans la ligne :
If c and c.offset(0,1) = "CPL" and condition and condition etc... then
N'oublies pas d'actualiser le mot "Onglet" en fonction du nom de ta feuille
A ta disposition pour des compléments éventuelsbonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Bonjour FFO,
Merci de aide et pour ce code qui marche presque bien car ,
j'ai un pb avec ce code qui me transforme tout en CPL/RTC
Merci.
Thierry
Salut titou
Je te propose une solution macro que tu pourras facilement adapter
Le code :
Sheets("Onglet").Select
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c = 6 And c.Offset(0, 1) = "CPL" Then
c.Offset(0, 1) = "CPL/GSM"
Else
c.Offset(0, 1) = "CPL/RTC"
End If
Next
Qui veut dire :
pour chaque valeur de c dans la plage A1: A(dernière cellule remplie)
si c = 06 et c (cellule adjacente) = "CPL"
alors
c(cellule adjacente) = "CPL/GSM"
sinon
c(cellule adjacente) = "CPL/RTC"
Tu peux mettre si tu le souhaites des conditions supplémentaires
Pour celà tu dois les rajouter comme ceci dans la ligne :
If c and c.offset(0,1) = "CPL" and condition and condition etc... then
N'oublies pas d'actualiser le mot "Onglet" en fonction du nom de ta feuille
A ta disposition pour des compléments éventuels
bonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Bonjour FFO,
Merci de aide et pour ce code qui marche presque bien car ,
j'ai un pb avec ce code qui me transforme tout en CPL/RTC
Merci.
ThierrySalut titou
Je te propose une solution macro que tu pourras facilement adapter
Le code :
Sheets("Onglet").Select
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c = 6 And c.Offset(0, 1) = "CPL" Then
c.Offset(0, 1) = "CPL/GSM"
Else
c.Offset(0, 1) = "CPL/RTC"
End If
Next
Qui veut dire :
pour chaque valeur de c dans la plage A1: A(dernière cellule remplie)
si c = 06 et c (cellule adjacente) = "CPL"
alors
c(cellule adjacente) = "CPL/GSM"
sinon
c(cellule adjacente) = "CPL/RTC"
Tu peux mettre si tu le souhaites des conditions supplémentaires
Pour celà tu dois les rajouter comme ceci dans la ligne :
If c and c.offset(0,1) = "CPL" and condition and condition etc... then
N'oublies pas d'actualiser le mot "Onglet" en fonction du nom de ta feuille
A ta disposition pour des compléments éventuelsbonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
c'est encore moi
j'ai mis mes deux collonne l'une à coté de l'autre
mes numéros de téléphone sont de cette forme là
06 12 12 12 12
01 12 12 12 12
02 12 12 12 12
.....
et les cellules de ma colonne N°tél sont aux "format cellules horizontale"=
retrait gauche et "format cellules verticale"= centré et et au "format
cellules spécial"=n°téléphone français et pour l'autre colonne "type d'appel"
"format cellules horizontale"= retrait gauche et "format cellules
verticale"= centré
voici pour les précisions.
je ne parviens tjrs pas a comprendre pkoi ça met partout CPL/RTC même quand
dans la colonne "typ d'appel" il n'y apparai pas CPL mais par ex GSM ou RTC
ou bien Interface RTC/GSM...
MERCI.
ThierryBonjour FFO,
Merci de aide et pour ce code qui marche presque bien car ,
j'ai un pb avec ce code qui me transforme tout en CPL/RTC
Merci.
ThierrySalut titou
Je te propose une solution macro que tu pourras facilement adapter
Le code :
Sheets("Onglet").Select
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c = 6 And c.Offset(0, 1) = "CPL" Then
c.Offset(0, 1) = "CPL/GSM"
Else
c.Offset(0, 1) = "CPL/RTC"
End If
Next
Qui veut dire :
pour chaque valeur de c dans la plage A1: A(dernière cellule remplie)
si c = 06 et c (cellule adjacente) = "CPL"
alors
c(cellule adjacente) = "CPL/GSM"
sinon
c(cellule adjacente) = "CPL/RTC"
Tu peux mettre si tu le souhaites des conditions supplémentaires
Pour celà tu dois les rajouter comme ceci dans la ligne :
If c and c.offset(0,1) = "CPL" and condition and condition etc... then
N'oublies pas d'actualiser le mot "Onglet" en fonction du nom de ta feuille
A ta disposition pour des compléments éventuelsbonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
c'est encore moi
j'ai mis mes deux collonne l'une à coté de l'autre
mes numéros de téléphone sont de cette forme là
06 12 12 12 12
01 12 12 12 12
02 12 12 12 12
.....
et les cellules de ma colonne N°tél sont aux "format cellules horizontale"=
retrait gauche et "format cellules verticale"= centré et et au "format
cellules spécial"=n°téléphone français et pour l'autre colonne "type d'appel"
"format cellules horizontale"= retrait gauche et "format cellules
verticale"= centré
voici pour les précisions.
je ne parviens tjrs pas a comprendre pkoi ça met partout CPL/RTC même quand
dans la colonne "typ d'appel" il n'y apparai pas CPL mais par ex GSM ou RTC
ou bien Interface RTC/GSM...
MERCI.
Thierry
Bonjour FFO,
Merci de aide et pour ce code qui marche presque bien car ,
j'ai un pb avec ce code qui me transforme tout en CPL/RTC
Merci.
Thierry
Salut titou
Je te propose une solution macro que tu pourras facilement adapter
Le code :
Sheets("Onglet").Select
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c = 6 And c.Offset(0, 1) = "CPL" Then
c.Offset(0, 1) = "CPL/GSM"
Else
c.Offset(0, 1) = "CPL/RTC"
End If
Next
Qui veut dire :
pour chaque valeur de c dans la plage A1: A(dernière cellule remplie)
si c = 06 et c (cellule adjacente) = "CPL"
alors
c(cellule adjacente) = "CPL/GSM"
sinon
c(cellule adjacente) = "CPL/RTC"
Tu peux mettre si tu le souhaites des conditions supplémentaires
Pour celà tu dois les rajouter comme ceci dans la ligne :
If c and c.offset(0,1) = "CPL" and condition and condition etc... then
N'oublies pas d'actualiser le mot "Onglet" en fonction du nom de ta feuille
A ta disposition pour des compléments éventuels
bonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
c'est encore moi
j'ai mis mes deux collonne l'une à coté de l'autre
mes numéros de téléphone sont de cette forme là
06 12 12 12 12
01 12 12 12 12
02 12 12 12 12
.....
et les cellules de ma colonne N°tél sont aux "format cellules horizontale"=
retrait gauche et "format cellules verticale"= centré et et au "format
cellules spécial"=n°téléphone français et pour l'autre colonne "type d'appel"
"format cellules horizontale"= retrait gauche et "format cellules
verticale"= centré
voici pour les précisions.
je ne parviens tjrs pas a comprendre pkoi ça met partout CPL/RTC même quand
dans la colonne "typ d'appel" il n'y apparai pas CPL mais par ex GSM ou RTC
ou bien Interface RTC/GSM...
MERCI.
ThierryBonjour FFO,
Merci de aide et pour ce code qui marche presque bien car ,
j'ai un pb avec ce code qui me transforme tout en CPL/RTC
Merci.
ThierrySalut titou
Je te propose une solution macro que tu pourras facilement adapter
Le code :
Sheets("Onglet").Select
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c = 6 And c.Offset(0, 1) = "CPL" Then
c.Offset(0, 1) = "CPL/GSM"
Else
c.Offset(0, 1) = "CPL/RTC"
End If
Next
Qui veut dire :
pour chaque valeur de c dans la plage A1: A(dernière cellule remplie)
si c = 06 et c (cellule adjacente) = "CPL"
alors
c(cellule adjacente) = "CPL/GSM"
sinon
c(cellule adjacente) = "CPL/RTC"
Tu peux mettre si tu le souhaites des conditions supplémentaires
Pour celà tu dois les rajouter comme ceci dans la ligne :
If c and c.offset(0,1) = "CPL" and condition and condition etc... then
N'oublies pas d'actualiser le mot "Onglet" en fonction du nom de ta feuille
A ta disposition pour des compléments éventuelsbonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Re bonjours titou
Mon code répond scrupuleusement à ta demande :
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
qui veut dire pour moi :
en prenant pour exemple les cellules A1 et B1
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
si A1 est égal à 06 et B1 = CPL
then (B1:B65535) ("CPl"="CPL/GSM")
alors B1 égal CPL/GSM
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Sinon B1 egal CPL/RTC
En claire seul le cas de A1 = 06 et B1 = CPL donne B1 = CPL/GSM
Tous les autres cas donne B1 = CPL/RTC
Donc notamment pour les type appel correspondant à GSM RTC RTC/GSM (qui ne
sont pas CPL donc répondant à la condition Sinon ci-dessus)
C'est tout à fait normal
Celà ne semble pas te convenir !!!!
Il y a donc un manquement dans ta demande
Dans quel but m'a tu transmis ces numéros de téléphone ????
J'avoue ne pas comprendre
Merci de préciser
A toi de mieux formulerc'est encore moi
j'ai mis mes deux collonne l'une à coté de l'autre
mes numéros de téléphone sont de cette forme là
06 12 12 12 12
01 12 12 12 12
02 12 12 12 12
.....
et les cellules de ma colonne N°tél sont aux "format cellules horizontale"=
retrait gauche et "format cellules verticale"= centré et et au "format
cellules spécial"=n°téléphone français et pour l'autre colonne "type d'appel"
"format cellules horizontale"= retrait gauche et "format cellules
verticale"= centré
voici pour les précisions.
je ne parviens tjrs pas a comprendre pkoi ça met partout CPL/RTC même quand
dans la colonne "typ d'appel" il n'y apparai pas CPL mais par ex GSM ou RTC
ou bien Interface RTC/GSM...
MERCI.
ThierryBonjour FFO,
Merci de aide et pour ce code qui marche presque bien car ,
j'ai un pb avec ce code qui me transforme tout en CPL/RTC
Merci.
ThierrySalut titou
Je te propose une solution macro que tu pourras facilement adapter
Le code :
Sheets("Onglet").Select
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c = 6 And c.Offset(0, 1) = "CPL" Then
c.Offset(0, 1) = "CPL/GSM"
Else
c.Offset(0, 1) = "CPL/RTC"
End If
Next
Qui veut dire :
pour chaque valeur de c dans la plage A1: A(dernière cellule remplie)
si c = 06 et c (cellule adjacente) = "CPL"
alors
c(cellule adjacente) = "CPL/GSM"
sinon
c(cellule adjacente) = "CPL/RTC"
Tu peux mettre si tu le souhaites des conditions supplémentaires
Pour celà tu dois les rajouter comme ceci dans la ligne :
If c and c.offset(0,1) = "CPL" and condition and condition etc... then
N'oublies pas d'actualiser le mot "Onglet" en fonction du nom de ta feuille
A ta disposition pour des compléments éventuelsbonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Re bonjours titou
Mon code répond scrupuleusement à ta demande :
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
qui veut dire pour moi :
en prenant pour exemple les cellules A1 et B1
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
si A1 est égal à 06 et B1 = CPL
then (B1:B65535) ("CPl"="CPL/GSM")
alors B1 égal CPL/GSM
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Sinon B1 egal CPL/RTC
En claire seul le cas de A1 = 06 et B1 = CPL donne B1 = CPL/GSM
Tous les autres cas donne B1 = CPL/RTC
Donc notamment pour les type appel correspondant à GSM RTC RTC/GSM (qui ne
sont pas CPL donc répondant à la condition Sinon ci-dessus)
C'est tout à fait normal
Celà ne semble pas te convenir !!!!
Il y a donc un manquement dans ta demande
Dans quel but m'a tu transmis ces numéros de téléphone ????
J'avoue ne pas comprendre
Merci de préciser
A toi de mieux formuler
c'est encore moi
j'ai mis mes deux collonne l'une à coté de l'autre
mes numéros de téléphone sont de cette forme là
06 12 12 12 12
01 12 12 12 12
02 12 12 12 12
.....
et les cellules de ma colonne N°tél sont aux "format cellules horizontale"=
retrait gauche et "format cellules verticale"= centré et et au "format
cellules spécial"=n°téléphone français et pour l'autre colonne "type d'appel"
"format cellules horizontale"= retrait gauche et "format cellules
verticale"= centré
voici pour les précisions.
je ne parviens tjrs pas a comprendre pkoi ça met partout CPL/RTC même quand
dans la colonne "typ d'appel" il n'y apparai pas CPL mais par ex GSM ou RTC
ou bien Interface RTC/GSM...
MERCI.
Thierry
Bonjour FFO,
Merci de aide et pour ce code qui marche presque bien car ,
j'ai un pb avec ce code qui me transforme tout en CPL/RTC
Merci.
Thierry
Salut titou
Je te propose une solution macro que tu pourras facilement adapter
Le code :
Sheets("Onglet").Select
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c = 6 And c.Offset(0, 1) = "CPL" Then
c.Offset(0, 1) = "CPL/GSM"
Else
c.Offset(0, 1) = "CPL/RTC"
End If
Next
Qui veut dire :
pour chaque valeur de c dans la plage A1: A(dernière cellule remplie)
si c = 06 et c (cellule adjacente) = "CPL"
alors
c(cellule adjacente) = "CPL/GSM"
sinon
c(cellule adjacente) = "CPL/RTC"
Tu peux mettre si tu le souhaites des conditions supplémentaires
Pour celà tu dois les rajouter comme ceci dans la ligne :
If c and c.offset(0,1) = "CPL" and condition and condition etc... then
N'oublies pas d'actualiser le mot "Onglet" en fonction du nom de ta feuille
A ta disposition pour des compléments éventuels
bonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Re bonjours titou
Mon code répond scrupuleusement à ta demande :
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
qui veut dire pour moi :
en prenant pour exemple les cellules A1 et B1
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
si A1 est égal à 06 et B1 = CPL
then (B1:B65535) ("CPl"="CPL/GSM")
alors B1 égal CPL/GSM
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Sinon B1 egal CPL/RTC
En claire seul le cas de A1 = 06 et B1 = CPL donne B1 = CPL/GSM
Tous les autres cas donne B1 = CPL/RTC
Donc notamment pour les type appel correspondant à GSM RTC RTC/GSM (qui ne
sont pas CPL donc répondant à la condition Sinon ci-dessus)
C'est tout à fait normal
Celà ne semble pas te convenir !!!!
Il y a donc un manquement dans ta demande
Dans quel but m'a tu transmis ces numéros de téléphone ????
J'avoue ne pas comprendre
Merci de préciser
A toi de mieux formulerc'est encore moi
j'ai mis mes deux collonne l'une à coté de l'autre
mes numéros de téléphone sont de cette forme là
06 12 12 12 12
01 12 12 12 12
02 12 12 12 12
.....
et les cellules de ma colonne N°tél sont aux "format cellules horizontale"=
retrait gauche et "format cellules verticale"= centré et et au "format
cellules spécial"=n°téléphone français et pour l'autre colonne "type d'appel"
"format cellules horizontale"= retrait gauche et "format cellules
verticale"= centré
voici pour les précisions.
je ne parviens tjrs pas a comprendre pkoi ça met partout CPL/RTC même quand
dans la colonne "typ d'appel" il n'y apparai pas CPL mais par ex GSM ou RTC
ou bien Interface RTC/GSM...
MERCI.
ThierryBonjour FFO,
Merci de aide et pour ce code qui marche presque bien car ,
j'ai un pb avec ce code qui me transforme tout en CPL/RTC
Merci.
ThierrySalut titou
Je te propose une solution macro que tu pourras facilement adapter
Le code :
Sheets("Onglet").Select
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c = 6 And c.Offset(0, 1) = "CPL" Then
c.Offset(0, 1) = "CPL/GSM"
Else
c.Offset(0, 1) = "CPL/RTC"
End If
Next
Qui veut dire :
pour chaque valeur de c dans la plage A1: A(dernière cellule remplie)
si c = 06 et c (cellule adjacente) = "CPL"
alors
c(cellule adjacente) = "CPL/GSM"
sinon
c(cellule adjacente) = "CPL/RTC"
Tu peux mettre si tu le souhaites des conditions supplémentaires
Pour celà tu dois les rajouter comme ceci dans la ligne :
If c and c.offset(0,1) = "CPL" and condition and condition etc... then
N'oublies pas d'actualiser le mot "Onglet" en fonction du nom de ta feuille
A ta disposition pour des compléments éventuelsbonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Excuse moi FFO ton code est tout à fait juste, c'est moi qui me suis pas
exprimé jusqu'au bout.
en faite si ça comme par "06" et que j'ai "CPL" alors je met CPL/GSM
sinon si c'est 01 , 02 ,03,04 ,05 et que j'ai "CPL" alors je met CPL/RTC
sinon si c'est 01,02,03,04,05,06 et que j'ai tout sauf "CPL" alors je je
change rien à la colonne "Typ d'appel"
Jespère que mon explication est assez clair.
MERCI.
ThierryRe bonjours titou
Mon code répond scrupuleusement à ta demande :
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
qui veut dire pour moi :
en prenant pour exemple les cellules A1 et B1
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
si A1 est égal à 06 et B1 = CPL
then (B1:B65535) ("CPl"="CPL/GSM")
alors B1 égal CPL/GSM
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Sinon B1 egal CPL/RTC
En claire seul le cas de A1 = 06 et B1 = CPL donne B1 = CPL/GSM
Tous les autres cas donne B1 = CPL/RTC
Donc notamment pour les type appel correspondant à GSM RTC RTC/GSM (qui ne
sont pas CPL donc répondant à la condition Sinon ci-dessus)
C'est tout à fait normal
Celà ne semble pas te convenir !!!!
Il y a donc un manquement dans ta demande
Dans quel but m'a tu transmis ces numéros de téléphone ????
J'avoue ne pas comprendre
Merci de préciser
A toi de mieux formulerc'est encore moi
j'ai mis mes deux collonne l'une à coté de l'autre
mes numéros de téléphone sont de cette forme là
06 12 12 12 12
01 12 12 12 12
02 12 12 12 12
.....
et les cellules de ma colonne N°tél sont aux "format cellules horizontale"=
retrait gauche et "format cellules verticale"= centré et et au "format
cellules spécial"=n°téléphone français et pour l'autre colonne "type d'appel"
"format cellules horizontale"= retrait gauche et "format cellules
verticale"= centré
voici pour les précisions.
je ne parviens tjrs pas a comprendre pkoi ça met partout CPL/RTC même quand
dans la colonne "typ d'appel" il n'y apparai pas CPL mais par ex GSM ou RTC
ou bien Interface RTC/GSM...
MERCI.
ThierryBonjour FFO,
Merci de aide et pour ce code qui marche presque bien car ,
j'ai un pb avec ce code qui me transforme tout en CPL/RTC
Merci.
ThierrySalut titou
Je te propose une solution macro que tu pourras facilement adapter
Le code :
Sheets("Onglet").Select
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c = 6 And c.Offset(0, 1) = "CPL" Then
c.Offset(0, 1) = "CPL/GSM"
Else
c.Offset(0, 1) = "CPL/RTC"
End If
Next
Qui veut dire :
pour chaque valeur de c dans la plage A1: A(dernière cellule remplie)
si c = 06 et c (cellule adjacente) = "CPL"
alors
c(cellule adjacente) = "CPL/GSM"
sinon
c(cellule adjacente) = "CPL/RTC"
Tu peux mettre si tu le souhaites des conditions supplémentaires
Pour celà tu dois les rajouter comme ceci dans la ligne :
If c and c.offset(0,1) = "CPL" and condition and condition etc... then
N'oublies pas d'actualiser le mot "Onglet" en fonction du nom de ta feuille
A ta disposition pour des compléments éventuelsbonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Excuse moi FFO ton code est tout à fait juste, c'est moi qui me suis pas
exprimé jusqu'au bout.
en faite si ça comme par "06" et que j'ai "CPL" alors je met CPL/GSM
sinon si c'est 01 , 02 ,03,04 ,05 et que j'ai "CPL" alors je met CPL/RTC
sinon si c'est 01,02,03,04,05,06 et que j'ai tout sauf "CPL" alors je je
change rien à la colonne "Typ d'appel"
Jespère que mon explication est assez clair.
MERCI.
Thierry
Re bonjours titou
Mon code répond scrupuleusement à ta demande :
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
qui veut dire pour moi :
en prenant pour exemple les cellules A1 et B1
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
si A1 est égal à 06 et B1 = CPL
then (B1:B65535) ("CPl"="CPL/GSM")
alors B1 égal CPL/GSM
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Sinon B1 egal CPL/RTC
En claire seul le cas de A1 = 06 et B1 = CPL donne B1 = CPL/GSM
Tous les autres cas donne B1 = CPL/RTC
Donc notamment pour les type appel correspondant à GSM RTC RTC/GSM (qui ne
sont pas CPL donc répondant à la condition Sinon ci-dessus)
C'est tout à fait normal
Celà ne semble pas te convenir !!!!
Il y a donc un manquement dans ta demande
Dans quel but m'a tu transmis ces numéros de téléphone ????
J'avoue ne pas comprendre
Merci de préciser
A toi de mieux formuler
c'est encore moi
j'ai mis mes deux collonne l'une à coté de l'autre
mes numéros de téléphone sont de cette forme là
06 12 12 12 12
01 12 12 12 12
02 12 12 12 12
.....
et les cellules de ma colonne N°tél sont aux "format cellules horizontale"=
retrait gauche et "format cellules verticale"= centré et et au "format
cellules spécial"=n°téléphone français et pour l'autre colonne "type d'appel"
"format cellules horizontale"= retrait gauche et "format cellules
verticale"= centré
voici pour les précisions.
je ne parviens tjrs pas a comprendre pkoi ça met partout CPL/RTC même quand
dans la colonne "typ d'appel" il n'y apparai pas CPL mais par ex GSM ou RTC
ou bien Interface RTC/GSM...
MERCI.
Thierry
Bonjour FFO,
Merci de aide et pour ce code qui marche presque bien car ,
j'ai un pb avec ce code qui me transforme tout en CPL/RTC
Merci.
Thierry
Salut titou
Je te propose une solution macro que tu pourras facilement adapter
Le code :
Sheets("Onglet").Select
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c = 6 And c.Offset(0, 1) = "CPL" Then
c.Offset(0, 1) = "CPL/GSM"
Else
c.Offset(0, 1) = "CPL/RTC"
End If
Next
Qui veut dire :
pour chaque valeur de c dans la plage A1: A(dernière cellule remplie)
si c = 06 et c (cellule adjacente) = "CPL"
alors
c(cellule adjacente) = "CPL/GSM"
sinon
c(cellule adjacente) = "CPL/RTC"
Tu peux mettre si tu le souhaites des conditions supplémentaires
Pour celà tu dois les rajouter comme ceci dans la ligne :
If c and c.offset(0,1) = "CPL" and condition and condition etc... then
N'oublies pas d'actualiser le mot "Onglet" en fonction du nom de ta feuille
A ta disposition pour des compléments éventuels
bonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Excuse moi FFO ton code est tout à fait juste, c'est moi qui me suis pas
exprimé jusqu'au bout.
en faite si ça comme par "06" et que j'ai "CPL" alors je met CPL/GSM
sinon si c'est 01 , 02 ,03,04 ,05 et que j'ai "CPL" alors je met CPL/RTC
sinon si c'est 01,02,03,04,05,06 et que j'ai tout sauf "CPL" alors je je
change rien à la colonne "Typ d'appel"
Jespère que mon explication est assez clair.
MERCI.
ThierryRe bonjours titou
Mon code répond scrupuleusement à ta demande :
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
qui veut dire pour moi :
en prenant pour exemple les cellules A1 et B1
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
si A1 est égal à 06 et B1 = CPL
then (B1:B65535) ("CPl"="CPL/GSM")
alors B1 égal CPL/GSM
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Sinon B1 egal CPL/RTC
En claire seul le cas de A1 = 06 et B1 = CPL donne B1 = CPL/GSM
Tous les autres cas donne B1 = CPL/RTC
Donc notamment pour les type appel correspondant à GSM RTC RTC/GSM (qui ne
sont pas CPL donc répondant à la condition Sinon ci-dessus)
C'est tout à fait normal
Celà ne semble pas te convenir !!!!
Il y a donc un manquement dans ta demande
Dans quel but m'a tu transmis ces numéros de téléphone ????
J'avoue ne pas comprendre
Merci de préciser
A toi de mieux formulerc'est encore moi
j'ai mis mes deux collonne l'une à coté de l'autre
mes numéros de téléphone sont de cette forme là
06 12 12 12 12
01 12 12 12 12
02 12 12 12 12
.....
et les cellules de ma colonne N°tél sont aux "format cellules horizontale"=
retrait gauche et "format cellules verticale"= centré et et au "format
cellules spécial"=n°téléphone français et pour l'autre colonne "type d'appel"
"format cellules horizontale"= retrait gauche et "format cellules
verticale"= centré
voici pour les précisions.
je ne parviens tjrs pas a comprendre pkoi ça met partout CPL/RTC même quand
dans la colonne "typ d'appel" il n'y apparai pas CPL mais par ex GSM ou RTC
ou bien Interface RTC/GSM...
MERCI.
ThierryBonjour FFO,
Merci de aide et pour ce code qui marche presque bien car ,
j'ai un pb avec ce code qui me transforme tout en CPL/RTC
Merci.
ThierrySalut titou
Je te propose une solution macro que tu pourras facilement adapter
Le code :
Sheets("Onglet").Select
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c = 6 And c.Offset(0, 1) = "CPL" Then
c.Offset(0, 1) = "CPL/GSM"
Else
c.Offset(0, 1) = "CPL/RTC"
End If
Next
Qui veut dire :
pour chaque valeur de c dans la plage A1: A(dernière cellule remplie)
si c = 06 et c (cellule adjacente) = "CPL"
alors
c(cellule adjacente) = "CPL/GSM"
sinon
c(cellule adjacente) = "CPL/RTC"
Tu peux mettre si tu le souhaites des conditions supplémentaires
Pour celà tu dois les rajouter comme ceci dans la ligne :
If c and c.offset(0,1) = "CPL" and condition and condition etc... then
N'oublies pas d'actualiser le mot "Onglet" en fonction du nom de ta feuille
A ta disposition pour des compléments éventuelsbonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Excuse moi FFO ton code est tout à fait juste, c'est moi qui me suis pas
exprimé jusqu'au bout.
en faite si ça comme par "06" et que j'ai "CPL" alors je met CPL/GSM
sinon si c'est 01 , 02 ,03,04 ,05 et que j'ai "CPL" alors je met CPL/RTC
sinon si c'est 01,02,03,04,05,06 et que j'ai tout sauf "CPL" alors je je
change rien à la colonne "Typ d'appel"
Jespère que mon explication est assez clair.
MERCI.
ThierryRe bonjours titou
Mon code répond scrupuleusement à ta demande :
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
qui veut dire pour moi :
en prenant pour exemple les cellules A1 et B1
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
si A1 est égal à 06 et B1 = CPL
then (B1:B65535) ("CPl"="CPL/GSM")
alors B1 égal CPL/GSM
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Sinon B1 egal CPL/RTC
En claire seul le cas de A1 = 06 et B1 = CPL donne B1 = CPL/GSM
Tous les autres cas donne B1 = CPL/RTC
Donc notamment pour les type appel correspondant à GSM RTC RTC/GSM (qui ne
sont pas CPL donc répondant à la condition Sinon ci-dessus)
C'est tout à fait normal
Celà ne semble pas te convenir !!!!
Il y a donc un manquement dans ta demande
Dans quel but m'a tu transmis ces numéros de téléphone ????
J'avoue ne pas comprendre
Merci de préciser
A toi de mieux formulerc'est encore moi
j'ai mis mes deux collonne l'une à coté de l'autre
mes numéros de téléphone sont de cette forme là
06 12 12 12 12
01 12 12 12 12
02 12 12 12 12
.....
et les cellules de ma colonne N°tél sont aux "format cellules horizontale"=
retrait gauche et "format cellules verticale"= centré et et au "format
cellules spécial"=n°téléphone français et pour l'autre colonne "type d'appel"
"format cellules horizontale"= retrait gauche et "format cellules
verticale"= centré
voici pour les précisions.
je ne parviens tjrs pas a comprendre pkoi ça met partout CPL/RTC même quand
dans la colonne "typ d'appel" il n'y apparai pas CPL mais par ex GSM ou RTC
ou bien Interface RTC/GSM...
MERCI.
ThierryBonjour FFO,
Merci de aide et pour ce code qui marche presque bien car ,
j'ai un pb avec ce code qui me transforme tout en CPL/RTC
Merci.
ThierrySalut titou
Je te propose une solution macro que tu pourras facilement adapter
Le code :
Sheets("Onglet").Select
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c = 6 And c.Offset(0, 1) = "CPL" Then
c.Offset(0, 1) = "CPL/GSM"
Else
c.Offset(0, 1) = "CPL/RTC"
End If
Next
Qui veut dire :
pour chaque valeur de c dans la plage A1: A(dernière cellule remplie)
si c = 06 et c (cellule adjacente) = "CPL"
alors
c(cellule adjacente) = "CPL/GSM"
sinon
c(cellule adjacente) = "CPL/RTC"
Tu peux mettre si tu le souhaites des conditions supplémentaires
Pour celà tu dois les rajouter comme ceci dans la ligne :
If c and c.offset(0,1) = "CPL" and condition and condition etc... then
N'oublies pas d'actualiser le mot "Onglet" en fonction du nom de ta feuille
A ta disposition pour des compléments éventuelsbonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Excuse moi FFO ton code est tout à fait juste, c'est moi qui me suis pas
exprimé jusqu'au bout.
en faite si ça comme par "06" et que j'ai "CPL" alors je met CPL/GSM
sinon si c'est 01 , 02 ,03,04 ,05 et que j'ai "CPL" alors je met CPL/RTC
sinon si c'est 01,02,03,04,05,06 et que j'ai tout sauf "CPL" alors je je
change rien à la colonne "Typ d'appel"
Jespère que mon explication est assez clair.
MERCI.
Thierry
Re bonjours titou
Mon code répond scrupuleusement à ta demande :
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
qui veut dire pour moi :
en prenant pour exemple les cellules A1 et B1
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
si A1 est égal à 06 et B1 = CPL
then (B1:B65535) ("CPl"="CPL/GSM")
alors B1 égal CPL/GSM
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Sinon B1 egal CPL/RTC
En claire seul le cas de A1 = 06 et B1 = CPL donne B1 = CPL/GSM
Tous les autres cas donne B1 = CPL/RTC
Donc notamment pour les type appel correspondant à GSM RTC RTC/GSM (qui ne
sont pas CPL donc répondant à la condition Sinon ci-dessus)
C'est tout à fait normal
Celà ne semble pas te convenir !!!!
Il y a donc un manquement dans ta demande
Dans quel but m'a tu transmis ces numéros de téléphone ????
J'avoue ne pas comprendre
Merci de préciser
A toi de mieux formuler
c'est encore moi
j'ai mis mes deux collonne l'une à coté de l'autre
mes numéros de téléphone sont de cette forme là
06 12 12 12 12
01 12 12 12 12
02 12 12 12 12
.....
et les cellules de ma colonne N°tél sont aux "format cellules horizontale"=
retrait gauche et "format cellules verticale"= centré et et au "format
cellules spécial"=n°téléphone français et pour l'autre colonne "type d'appel"
"format cellules horizontale"= retrait gauche et "format cellules
verticale"= centré
voici pour les précisions.
je ne parviens tjrs pas a comprendre pkoi ça met partout CPL/RTC même quand
dans la colonne "typ d'appel" il n'y apparai pas CPL mais par ex GSM ou RTC
ou bien Interface RTC/GSM...
MERCI.
Thierry
Bonjour FFO,
Merci de aide et pour ce code qui marche presque bien car ,
j'ai un pb avec ce code qui me transforme tout en CPL/RTC
Merci.
Thierry
Salut titou
Je te propose une solution macro que tu pourras facilement adapter
Le code :
Sheets("Onglet").Select
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c = 6 And c.Offset(0, 1) = "CPL" Then
c.Offset(0, 1) = "CPL/GSM"
Else
c.Offset(0, 1) = "CPL/RTC"
End If
Next
Qui veut dire :
pour chaque valeur de c dans la plage A1: A(dernière cellule remplie)
si c = 06 et c (cellule adjacente) = "CPL"
alors
c(cellule adjacente) = "CPL/GSM"
sinon
c(cellule adjacente) = "CPL/RTC"
Tu peux mettre si tu le souhaites des conditions supplémentaires
Pour celà tu dois les rajouter comme ceci dans la ligne :
If c and c.offset(0,1) = "CPL" and condition and condition etc... then
N'oublies pas d'actualiser le mot "Onglet" en fonction du nom de ta feuille
A ta disposition pour des compléments éventuels
bonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry
Excuse moi FFO ton code est tout à fait juste, c'est moi qui me suis pas
exprimé jusqu'au bout.
en faite si ça comme par "06" et que j'ai "CPL" alors je met CPL/GSM
sinon si c'est 01 , 02 ,03,04 ,05 et que j'ai "CPL" alors je met CPL/RTC
sinon si c'est 01,02,03,04,05,06 et que j'ai tout sauf "CPL" alors je je
change rien à la colonne "Typ d'appel"
Jespère que mon explication est assez clair.
MERCI.
ThierryRe bonjours titou
Mon code répond scrupuleusement à ta demande :
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
qui veut dire pour moi :
en prenant pour exemple les cellules A1 et B1
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
si A1 est égal à 06 et B1 = CPL
then (B1:B65535) ("CPl"="CPL/GSM")
alors B1 égal CPL/GSM
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Sinon B1 egal CPL/RTC
En claire seul le cas de A1 = 06 et B1 = CPL donne B1 = CPL/GSM
Tous les autres cas donne B1 = CPL/RTC
Donc notamment pour les type appel correspondant à GSM RTC RTC/GSM (qui ne
sont pas CPL donc répondant à la condition Sinon ci-dessus)
C'est tout à fait normal
Celà ne semble pas te convenir !!!!
Il y a donc un manquement dans ta demande
Dans quel but m'a tu transmis ces numéros de téléphone ????
J'avoue ne pas comprendre
Merci de préciser
A toi de mieux formulerc'est encore moi
j'ai mis mes deux collonne l'une à coté de l'autre
mes numéros de téléphone sont de cette forme là
06 12 12 12 12
01 12 12 12 12
02 12 12 12 12
.....
et les cellules de ma colonne N°tél sont aux "format cellules horizontale"=
retrait gauche et "format cellules verticale"= centré et et au "format
cellules spécial"=n°téléphone français et pour l'autre colonne "type d'appel"
"format cellules horizontale"= retrait gauche et "format cellules
verticale"= centré
voici pour les précisions.
je ne parviens tjrs pas a comprendre pkoi ça met partout CPL/RTC même quand
dans la colonne "typ d'appel" il n'y apparai pas CPL mais par ex GSM ou RTC
ou bien Interface RTC/GSM...
MERCI.
ThierryBonjour FFO,
Merci de aide et pour ce code qui marche presque bien car ,
j'ai un pb avec ce code qui me transforme tout en CPL/RTC
Merci.
ThierrySalut titou
Je te propose une solution macro que tu pourras facilement adapter
Le code :
Sheets("Onglet").Select
For Each c In Worksheets("Onglet").Range([A1], [A65535].End(xlUp))
If c = 6 And c.Offset(0, 1) = "CPL" Then
c.Offset(0, 1) = "CPL/GSM"
Else
c.Offset(0, 1) = "CPL/RTC"
End If
Next
Qui veut dire :
pour chaque valeur de c dans la plage A1: A(dernière cellule remplie)
si c = 06 et c (cellule adjacente) = "CPL"
alors
c(cellule adjacente) = "CPL/GSM"
sinon
c(cellule adjacente) = "CPL/RTC"
Tu peux mettre si tu le souhaites des conditions supplémentaires
Pour celà tu dois les rajouter comme ceci dans la ligne :
If c and c.offset(0,1) = "CPL" and condition and condition etc... then
N'oublies pas d'actualiser le mot "Onglet" en fonction du nom de ta feuille
A ta disposition pour des compléments éventuelsbonjour,
j'ai une petit problème de mise en forme dans un tableau.
Je voudrai lorsque dans la colonne "N°TEL" les numéros commencant par "06"
et que dans la colonne "Typ d'appel" a chaque apparition du mot "CPL" on
remplace le mot CPL par CPL/GSM et sinon par CPL/RTC.
J e connais pas très bien le langue VBA pour faire cette fontcion
ex:
If dans ( A1:A65535) mot commençant par ("06") and dans (B1:B65535) mot
("CPL")
then (B1:B65535) ("CPl"="CPL/GSM")
Elseif (B1:B65535) ("CPL"="CPL/RTC")
Je vous en remercie d'avance.
Thierry