Bonjour,
Je viens vers vous pour vous demander un peu daide (je sèche !!!)
Jai un classeur avec plusieurs feuilles ou on trouve différentes
formules dans de nombreuses cellules
Je cherche à effectuer un traitement sur chaque feuille et SUR CHAQUE
CELLULE qui contiendrait la fonction RechercheV, et pas sur les autres
formules.
Une fois les cellules qui contiennent cette fonction identifiées,
simplement copier les valeurs actuelles à la place des formules (en
laissant les autres formules continuer à fonctionner normalement)
Comment nos meilleurs contributeurs peuvent tils maider ???
Pour le traitement sur chaque feuille je pense utiliser qq chose comme
cela :
Dim F As Worksheet
For Each F In ActiveWorkbook.Sheets
Toto traitement
Next Feuille
Pour copier les valeurs seules je pense utiliser cela (dans le cas ou
on séléctionne les cellules cibles )
With Selection
Range(.Address) = (Range(.Address))
End With
Pour ne le faire que sur les cellules qui contiennent la fonction
rechercheV alors là je suis toute seule devant mon écran et je dépri me
car jai une bonne dizaine de feuilles et une bonne quarantaine de
cellules par feuille !!!
Je vous remercie par avance de votre bonté !
Je reste connectée pour suivre vos pistes,
Syl VBA
Bonjour,
Je viens vers vous pour vous demander un peu daide (je sèche !!!)
Jai un classeur avec plusieurs feuilles ou on trouve différentes
formules dans de nombreuses cellules
Je cherche à effectuer un traitement sur chaque feuille et SUR CHAQUE
CELLULE qui contiendrait la fonction RechercheV, et pas sur les autres
formules.
Une fois les cellules qui contiennent cette fonction identifiées,
simplement copier les valeurs actuelles à la place des formules (en
laissant les autres formules continuer à fonctionner normalement)
Comment nos meilleurs contributeurs peuvent tils maider ???
Pour le traitement sur chaque feuille je pense utiliser qq chose comme
cela :
Dim F As Worksheet
For Each F In ActiveWorkbook.Sheets
Toto traitement
Next Feuille
Pour copier les valeurs seules je pense utiliser cela (dans le cas ou
on séléctionne les cellules cibles )
With Selection
Range(.Address) = (Range(.Address))
End With
Pour ne le faire que sur les cellules qui contiennent la fonction
rechercheV alors là je suis toute seule devant mon écran et je dépri me
car jai une bonne dizaine de feuilles et une bonne quarantaine de
cellules par feuille !!!
Je vous remercie par avance de votre bonté !
Je reste connectée pour suivre vos pistes,
Syl VBA
Bonjour,
Je viens vers vous pour vous demander un peu daide (je sèche !!!)
Jai un classeur avec plusieurs feuilles ou on trouve différentes
formules dans de nombreuses cellules
Je cherche à effectuer un traitement sur chaque feuille et SUR CHAQUE
CELLULE qui contiendrait la fonction RechercheV, et pas sur les autres
formules.
Une fois les cellules qui contiennent cette fonction identifiées,
simplement copier les valeurs actuelles à la place des formules (en
laissant les autres formules continuer à fonctionner normalement)
Comment nos meilleurs contributeurs peuvent tils maider ???
Pour le traitement sur chaque feuille je pense utiliser qq chose comme
cela :
Dim F As Worksheet
For Each F In ActiveWorkbook.Sheets
Toto traitement
Next Feuille
Pour copier les valeurs seules je pense utiliser cela (dans le cas ou
on séléctionne les cellules cibles )
With Selection
Range(.Address) = (Range(.Address))
End With
Pour ne le faire que sur les cellules qui contiennent la fonction
rechercheV alors là je suis toute seule devant mon écran et je dépri me
car jai une bonne dizaine de feuilles et une bonne quarantaine de
cellules par feuille !!!
Je vous remercie par avance de votre bonté !
Je reste connectée pour suivre vos pistes,
Syl VBA
Bonjour,
Je viens vers vous pour vous demander un peu daide (je sèche !!!)
Jai un classeur avec plusieurs feuilles ou on trouve différentes
formules dans de nombreuses cellules
Je cherche à effectuer un traitement sur chaque feuille et SUR CHAQUE
CELLULE qui contiendrait la fonction RechercheV, et pas sur les autres
formules.
Une fois les cellules qui contiennent cette fonction identifiées,
simplement copier les valeurs actuelles à la place des formules (en
laissant les autres formules continuer à fonctionner normalement)
Comment nos meilleurs contributeurs peuvent tils maider ???
Pour le traitement sur chaque feuille je pense utiliser qq chose comme
cela :
Dim F As Worksheet
For Each F In ActiveWorkbook.Sheets
Toto traitement
Next Feuille
Pour copier les valeurs seules je pense utiliser cela (dans le cas ou
on séléctionne les cellules cibles )
With Selection
Range(.Address) = (Range(.Address))
End With
Pour ne le faire que sur les cellules qui contiennent la fonction
rechercheV alors là je suis toute seule devant mon écran et je déprime
car jai une bonne dizaine de feuilles et une bonne quarantaine de
cellules par feuille !!!
Je vous remercie par avance de votre bonté !
Je reste connectée pour suivre vos pistes,
Syl VBA
Bonjour,
Je viens vers vous pour vous demander un peu daide (je sèche !!!)
Jai un classeur avec plusieurs feuilles ou on trouve différentes
formules dans de nombreuses cellules
Je cherche à effectuer un traitement sur chaque feuille et SUR CHAQUE
CELLULE qui contiendrait la fonction RechercheV, et pas sur les autres
formules.
Une fois les cellules qui contiennent cette fonction identifiées,
simplement copier les valeurs actuelles à la place des formules (en
laissant les autres formules continuer à fonctionner normalement)
Comment nos meilleurs contributeurs peuvent tils maider ???
Pour le traitement sur chaque feuille je pense utiliser qq chose comme
cela :
Dim F As Worksheet
For Each F In ActiveWorkbook.Sheets
Toto traitement
Next Feuille
Pour copier les valeurs seules je pense utiliser cela (dans le cas ou
on séléctionne les cellules cibles )
With Selection
Range(.Address) = (Range(.Address))
End With
Pour ne le faire que sur les cellules qui contiennent la fonction
rechercheV alors là je suis toute seule devant mon écran et je déprime
car jai une bonne dizaine de feuilles et une bonne quarantaine de
cellules par feuille !!!
Je vous remercie par avance de votre bonté !
Je reste connectée pour suivre vos pistes,
Syl VBA
Bonjour,
Je viens vers vous pour vous demander un peu daide (je sèche !!!)
Jai un classeur avec plusieurs feuilles ou on trouve différentes
formules dans de nombreuses cellules
Je cherche à effectuer un traitement sur chaque feuille et SUR CHAQUE
CELLULE qui contiendrait la fonction RechercheV, et pas sur les autres
formules.
Une fois les cellules qui contiennent cette fonction identifiées,
simplement copier les valeurs actuelles à la place des formules (en
laissant les autres formules continuer à fonctionner normalement)
Comment nos meilleurs contributeurs peuvent tils maider ???
Pour le traitement sur chaque feuille je pense utiliser qq chose comme
cela :
Dim F As Worksheet
For Each F In ActiveWorkbook.Sheets
Toto traitement
Next Feuille
Pour copier les valeurs seules je pense utiliser cela (dans le cas ou
on séléctionne les cellules cibles )
With Selection
Range(.Address) = (Range(.Address))
End With
Pour ne le faire que sur les cellules qui contiennent la fonction
rechercheV alors là je suis toute seule devant mon écran et je déprime
car jai une bonne dizaine de feuilles et une bonne quarantaine de
cellules par feuille !!!
Je vous remercie par avance de votre bonté !
Je reste connectée pour suivre vos pistes,
Syl VBA
| a(j) = c.Address
Si la procédure enregistre seulement l'adresse de la cellule, je
me demande comment elle fera pour retrouver cette même
adresse si elle peut appartenir à plusieurs feuilles différentes !
| j = j + 1
| ReDim Preserve a(1 To j)
| a(j) = c.Address
Est-ce qu'il y a une raison pour ne pas modifier la valeur
de la cellule trouvée par :
C.value = C.value
ça éviterais aussi ce bout de code :
| For k = 1 To j
| Range(a(i)).Value = Range(a(i)).Value
| Next k
IL doit y avoir un truc que je n'ai pas saisi ...
"JB" a écrit dans le message de news:
Bonjour,
Sub essai()
Dim a()
mot = "=vlookup("
For i = 1 To Sheets.Count
With Sheets(i).Cells
Set c = .Find(mot, LookIn:=xlFormulas, LookAt:=xlPart)
If Not c Is Nothing Then
premier = c.Address
Do
j = j + 1
ReDim Preserve a(1 To j)
a(j) = c.Address
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
For k = 1 To j
Range(a(i)).Value = Range(a(i)).Value
Next k
Next i
End Sub
JB
http://boisgontierjacques.free.fr
On 11 juin, 15:42, SylVBA wrote:Bonjour,
Je viens vers vous pour vous demander un peu d'aide (je sèche !!!)
J'ai un classeur avec plusieurs feuilles ou on trouve différentes
formules dans de nombreuses cellules .
Je cherche à effectuer un traitement sur chaque feuille et SUR CHAQUE
CELLULE qui contiendrait la fonction RechercheV, et pas sur les autres
formules.
Une fois les cellules qui contiennent cette fonction identifiées,
simplement copier les valeurs actuelles à la place des formules (en
laissant les autres formules continuer à fonctionner normalement)
Comment nos meilleurs contributeurs peuvent t'ils m'aider ???
Pour le traitement sur chaque feuille je pense utiliser qq chose comme
cela :
Dim F As Worksheet
For Each F In ActiveWorkbook.Sheets
'Toto traitement
Next Feuille
Pour copier les valeurs seules je pense utiliser cela (dans le cas ou
on séléctionne les cellules cibles )
With Selection
Range(.Address) = (Range(.Address))
End With
Pour ne le faire que sur les cellules qui contiennent la fonction
rechercheV alors là je suis toute seule devant mon écran et je déprime
car j'ai une bonne dizaine de feuilles et une bonne quarantaine de
cellules par feuille !!!
Je vous remercie par avance de votre bonté !
Je reste connectée pour suivre vos pistes,
Syl VBA
| a(j) = c.Address
Si la procédure enregistre seulement l'adresse de la cellule, je
me demande comment elle fera pour retrouver cette même
adresse si elle peut appartenir à plusieurs feuilles différentes !
| j = j + 1
| ReDim Preserve a(1 To j)
| a(j) = c.Address
Est-ce qu'il y a une raison pour ne pas modifier la valeur
de la cellule trouvée par :
C.value = C.value
ça éviterais aussi ce bout de code :
| For k = 1 To j
| Range(a(i)).Value = Range(a(i)).Value
| Next k
IL doit y avoir un truc que je n'ai pas saisi ...
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
de2fbd07-73ab-4b18-b714-cc5efb69eb39@k13g2000hse.googlegroups.com...
Bonjour,
Sub essai()
Dim a()
mot = "=vlookup("
For i = 1 To Sheets.Count
With Sheets(i).Cells
Set c = .Find(mot, LookIn:=xlFormulas, LookAt:=xlPart)
If Not c Is Nothing Then
premier = c.Address
Do
j = j + 1
ReDim Preserve a(1 To j)
a(j) = c.Address
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
For k = 1 To j
Range(a(i)).Value = Range(a(i)).Value
Next k
Next i
End Sub
JB
http://boisgontierjacques.free.fr
On 11 juin, 15:42, SylVBA <sylvie.lauren...@wanadoo.fr> wrote:
Bonjour,
Je viens vers vous pour vous demander un peu d'aide (je sèche !!!)
J'ai un classeur avec plusieurs feuilles ou on trouve différentes
formules dans de nombreuses cellules .
Je cherche à effectuer un traitement sur chaque feuille et SUR CHAQUE
CELLULE qui contiendrait la fonction RechercheV, et pas sur les autres
formules.
Une fois les cellules qui contiennent cette fonction identifiées,
simplement copier les valeurs actuelles à la place des formules (en
laissant les autres formules continuer à fonctionner normalement)
Comment nos meilleurs contributeurs peuvent t'ils m'aider ???
Pour le traitement sur chaque feuille je pense utiliser qq chose comme
cela :
Dim F As Worksheet
For Each F In ActiveWorkbook.Sheets
'Toto traitement
Next Feuille
Pour copier les valeurs seules je pense utiliser cela (dans le cas ou
on séléctionne les cellules cibles )
With Selection
Range(.Address) = (Range(.Address))
End With
Pour ne le faire que sur les cellules qui contiennent la fonction
rechercheV alors là je suis toute seule devant mon écran et je déprime
car j'ai une bonne dizaine de feuilles et une bonne quarantaine de
cellules par feuille !!!
Je vous remercie par avance de votre bonté !
Je reste connectée pour suivre vos pistes,
Syl VBA
| a(j) = c.Address
Si la procédure enregistre seulement l'adresse de la cellule, je
me demande comment elle fera pour retrouver cette même
adresse si elle peut appartenir à plusieurs feuilles différentes !
| j = j + 1
| ReDim Preserve a(1 To j)
| a(j) = c.Address
Est-ce qu'il y a une raison pour ne pas modifier la valeur
de la cellule trouvée par :
C.value = C.value
ça éviterais aussi ce bout de code :
| For k = 1 To j
| Range(a(i)).Value = Range(a(i)).Value
| Next k
IL doit y avoir un truc que je n'ai pas saisi ...
"JB" a écrit dans le message de news:
Bonjour,
Sub essai()
Dim a()
mot = "=vlookup("
For i = 1 To Sheets.Count
With Sheets(i).Cells
Set c = .Find(mot, LookIn:=xlFormulas, LookAt:=xlPart)
If Not c Is Nothing Then
premier = c.Address
Do
j = j + 1
ReDim Preserve a(1 To j)
a(j) = c.Address
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
For k = 1 To j
Range(a(i)).Value = Range(a(i)).Value
Next k
Next i
End Sub
JB
http://boisgontierjacques.free.fr
On 11 juin, 15:42, SylVBA wrote:Bonjour,
Je viens vers vous pour vous demander un peu d'aide (je sèche !!!)
J'ai un classeur avec plusieurs feuilles ou on trouve différentes
formules dans de nombreuses cellules .
Je cherche à effectuer un traitement sur chaque feuille et SUR CHAQUE
CELLULE qui contiendrait la fonction RechercheV, et pas sur les autres
formules.
Une fois les cellules qui contiennent cette fonction identifiées,
simplement copier les valeurs actuelles à la place des formules (en
laissant les autres formules continuer à fonctionner normalement)
Comment nos meilleurs contributeurs peuvent t'ils m'aider ???
Pour le traitement sur chaque feuille je pense utiliser qq chose comme
cela :
Dim F As Worksheet
For Each F In ActiveWorkbook.Sheets
'Toto traitement
Next Feuille
Pour copier les valeurs seules je pense utiliser cela (dans le cas ou
on séléctionne les cellules cibles )
With Selection
Range(.Address) = (Range(.Address))
End With
Pour ne le faire que sur les cellules qui contiennent la fonction
rechercheV alors là je suis toute seule devant mon écran et je déprime
car j'ai une bonne dizaine de feuilles et une bonne quarantaine de
cellules par feuille !!!
Je vous remercie par avance de votre bonté !
Je reste connectée pour suivre vos pistes,
Syl VBA
| a(j) = c.Address
Si la procédure enregistre seulement l'adresse de la cellule, je
me demande comment elle fera pour retrouver cette même
adresse si elle peut appartenir à plusieurs feuilles différentes !
| j = j + 1
| ReDim Preserve a(1 To j)
| a(j) = c.Address
Est-ce qu'il y a une raison pour ne pas modifier la valeur
de la cellule trouvée par :
C.value = C.value
ça éviterais aussi ce bout de code :
| For k = 1 To j
| Range(a(i)).Value = Range(a(i)).Value
| Next k
IL doit y avoir un truc que je n'ai pas saisi ...
"JB" a écrit dans le message de news:
Bonjour,
Sub essai()
Dim a()
mot = "=vlookup("
For i = 1 To Sheets.Count
With Sheets(i).Cells
Set c = .Find(mot, LookIn:=xlFormulas, LookAt:=xlPart)
If Not c Is Nothing Then
premier = c.Address
Do
j = j + 1
ReDim Preserve a(1 To j)
a(j) = c.Address
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
For k = 1 To j
Range(a(i)).Value = Range(a(i)).Value
Next k
Next i
End Sub
JB
http://boisgontierjacques.free.fr
On 11 juin, 15:42, SylVBA wrote:Bonjour,
Je viens vers vous pour vous demander un peu d'aide (je sèche !!!)
J'ai un classeur avec plusieurs feuilles ou on trouve différentes
formules dans de nombreuses cellules .
Je cherche à effectuer un traitement sur chaque feuille et SUR CHAQUE
CELLULE qui contiendrait la fonction RechercheV, et pas sur les autres
formules.
Une fois les cellules qui contiennent cette fonction identifiées,
simplement copier les valeurs actuelles à la place des formules (en
laissant les autres formules continuer à fonctionner normalement)
Comment nos meilleurs contributeurs peuvent t'ils m'aider ???
Pour le traitement sur chaque feuille je pense utiliser qq chose comme
cela :
Dim F As Worksheet
For Each F In ActiveWorkbook.Sheets
'Toto traitement
Next Feuille
Pour copier les valeurs seules je pense utiliser cela (dans le cas ou
on séléctionne les cellules cibles )
With Selection
Range(.Address) = (Range(.Address))
End With
Pour ne le faire que sur les cellules qui contiennent la fonction
rechercheV alors là je suis toute seule devant mon écran et je déprime
car j'ai une bonne dizaine de feuilles et une bonne quarantaine de
cellules par feuille !!!
Je vous remercie par avance de votre bonté !
Je reste connectée pour suivre vos pistes,
Syl VBA
| a(j) = c.Address
Si la procédure enregistre seulement l'adresse de la cellule, je
me demande comment elle fera pour retrouver cette même
adresse si elle peut appartenir à plusieurs feuilles différentes !
| j = j + 1
| ReDim Preserve a(1 To j)
| a(j) = c.Address
Est-ce qu'il y a une raison pour ne pas modifier la valeur
de la cellule trouvée par :
C.value = C.value
ça éviterais aussi ce bout de code :
| For k = 1 To j
| Range(a(i)).Value = Range(a(i)).Value
| Next k
IL doit y avoir un truc que je n'ai pas saisi ...
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
de2fbd07-73ab-4b18-b714-cc5efb69eb39@k13g2000hse.googlegroups.com...
Bonjour,
Sub essai()
Dim a()
mot = "=vlookup("
For i = 1 To Sheets.Count
With Sheets(i).Cells
Set c = .Find(mot, LookIn:=xlFormulas, LookAt:=xlPart)
If Not c Is Nothing Then
premier = c.Address
Do
j = j + 1
ReDim Preserve a(1 To j)
a(j) = c.Address
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
For k = 1 To j
Range(a(i)).Value = Range(a(i)).Value
Next k
Next i
End Sub
JB
http://boisgontierjacques.free.fr
On 11 juin, 15:42, SylVBA <sylvie.lauren...@wanadoo.fr> wrote:
Bonjour,
Je viens vers vous pour vous demander un peu d'aide (je sèche !!!)
J'ai un classeur avec plusieurs feuilles ou on trouve différentes
formules dans de nombreuses cellules .
Je cherche à effectuer un traitement sur chaque feuille et SUR CHAQUE
CELLULE qui contiendrait la fonction RechercheV, et pas sur les autres
formules.
Une fois les cellules qui contiennent cette fonction identifiées,
simplement copier les valeurs actuelles à la place des formules (en
laissant les autres formules continuer à fonctionner normalement)
Comment nos meilleurs contributeurs peuvent t'ils m'aider ???
Pour le traitement sur chaque feuille je pense utiliser qq chose comme
cela :
Dim F As Worksheet
For Each F In ActiveWorkbook.Sheets
'Toto traitement
Next Feuille
Pour copier les valeurs seules je pense utiliser cela (dans le cas ou
on séléctionne les cellules cibles )
With Selection
Range(.Address) = (Range(.Address))
End With
Pour ne le faire que sur les cellules qui contiennent la fonction
rechercheV alors là je suis toute seule devant mon écran et je déprime
car j'ai une bonne dizaine de feuilles et une bonne quarantaine de
cellules par feuille !!!
Je vous remercie par avance de votre bonté !
Je reste connectée pour suivre vos pistes,
Syl VBA
| a(j) = c.Address
Si la procédure enregistre seulement l'adresse de la cellule, je
me demande comment elle fera pour retrouver cette même
adresse si elle peut appartenir à plusieurs feuilles différentes !
| j = j + 1
| ReDim Preserve a(1 To j)
| a(j) = c.Address
Est-ce qu'il y a une raison pour ne pas modifier la valeur
de la cellule trouvée par :
C.value = C.value
ça éviterais aussi ce bout de code :
| For k = 1 To j
| Range(a(i)).Value = Range(a(i)).Value
| Next k
IL doit y avoir un truc que je n'ai pas saisi ...
"JB" a écrit dans le message de news:
Bonjour,
Sub essai()
Dim a()
mot = "=vlookup("
For i = 1 To Sheets.Count
With Sheets(i).Cells
Set c = .Find(mot, LookIn:=xlFormulas, LookAt:=xlPart)
If Not c Is Nothing Then
premier = c.Address
Do
j = j + 1
ReDim Preserve a(1 To j)
a(j) = c.Address
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
For k = 1 To j
Range(a(i)).Value = Range(a(i)).Value
Next k
Next i
End Sub
JB
http://boisgontierjacques.free.fr
On 11 juin, 15:42, SylVBA wrote:Bonjour,
Je viens vers vous pour vous demander un peu d'aide (je sèche !!!)
J'ai un classeur avec plusieurs feuilles ou on trouve différentes
formules dans de nombreuses cellules .
Je cherche à effectuer un traitement sur chaque feuille et SUR CHAQUE
CELLULE qui contiendrait la fonction RechercheV, et pas sur les autres
formules.
Une fois les cellules qui contiennent cette fonction identifiées,
simplement copier les valeurs actuelles à la place des formules (en
laissant les autres formules continuer à fonctionner normalement)
Comment nos meilleurs contributeurs peuvent t'ils m'aider ???
Pour le traitement sur chaque feuille je pense utiliser qq chose comme
cela :
Dim F As Worksheet
For Each F In ActiveWorkbook.Sheets
'Toto traitement
Next Feuille
Pour copier les valeurs seules je pense utiliser cela (dans le cas ou
on séléctionne les cellules cibles )
With Selection
Range(.Address) = (Range(.Address))
End With
Pour ne le faire que sur les cellules qui contiennent la fonction
rechercheV alors là je suis toute seule devant mon écran et je déprime
car j'ai une bonne dizaine de feuilles et une bonne quarantaine de
cellules par feuille !!!
Je vous remercie par avance de votre bonté !
Je reste connectée pour suivre vos pistes,
Syl VBA
re Bonjour,
je suis les différentes solutions depuis, et je suis vraiment perdue..
Sur la proc de JB, les cellules ne sont pas transformer en valeur (il
me semble)
Pour MichDenis, j'ai essayé plusieurs versions de la :
For Each c In Sheets(k).UsedRange.Specialcells(...)
je ne trouve pas la bonne fin
Il semble que celle de Youki marche mais je suis encore en test
PS: Si il y a des cellules protégées, il faut ajouter quoi devant pour
agir en vba dejà ??
Merci si vous pouvez continuer à m'aider a choisir le bon code
A de suite
T'it SylVBA
re Bonjour,
je suis les différentes solutions depuis, et je suis vraiment perdue..
Sur la proc de JB, les cellules ne sont pas transformer en valeur (il
me semble)
Pour MichDenis, j'ai essayé plusieurs versions de la :
For Each c In Sheets(k).UsedRange.Specialcells(...)
je ne trouve pas la bonne fin
Il semble que celle de Youki marche mais je suis encore en test
PS: Si il y a des cellules protégées, il faut ajouter quoi devant pour
agir en vba dejà ??
Merci si vous pouvez continuer à m'aider a choisir le bon code
A de suite
T'it SylVBA
re Bonjour,
je suis les différentes solutions depuis, et je suis vraiment perdue..
Sur la proc de JB, les cellules ne sont pas transformer en valeur (il
me semble)
Pour MichDenis, j'ai essayé plusieurs versions de la :
For Each c In Sheets(k).UsedRange.Specialcells(...)
je ne trouve pas la bonne fin
Il semble que celle de Youki marche mais je suis encore en test
PS: Si il y a des cellules protégées, il faut ajouter quoi devant pour
agir en vba dejà ??
Merci si vous pouvez continuer à m'aider a choisir le bon code
A de suite
T'it SylVBA