Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel collage spécial d'une feuille à l'autre

collage spécial d'une feuille à l'autre

5 réponses
Avatar
AB
Le code suivant (grand merci à Daniel, qui en est l'auteur !) copie les
cellules de la feuille1 vers la feuille 3, puis supprime toutes celles qui
contiennent le mot "ALEA".
Je voudrais le modifier, pour que le résultat des formules qui contiennent
le mot "ALEA" dans la feuille 1 soit collé en feuille 2, aux mêmes
emplacements qu'en feuille 1.
En d'autres termes, si j'ai en feuil1!B67 la formule
=ALEA.ENTRE.BORNES(15;35), et que le résultat est 26, je voudrais trouver en
feuil2!B67 la valeur 26.
Pour toutes les cellules de la feuille 1 qui ne contiennent pas le mot
"ALEA", je voudrais que les formules qu'elles contiennent soient reproduites
aux mêmes emplacements dans la feuille 2.
Désolé : mes explications sont un peu redondantes, j'en conviens. Je cherche
à être clair, au rique d'être lourd...
Une idée ?
AB


Sub test()
Dim Plage As Range, c As Range
ActiveSheet.Cells.Copy Sheets("Feuil3").Range("A1")
For Each c In ActiveSheet.UsedRange
If InStr(1, c.FormulaLocal, "ALEA") > 0 Then
Sheets("Feuil3").Range(c.Address).ClearContents
End If
Next c
End Sub
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
lSteph
Bonjour à toi aussi,

...de rien

dans ta boucle, dans le if

If InStr(1, c.FormulaLocal, "ALEA") > 0 Then
Sheets("Feuil3").Range(c.Address).ClearContents
Feuil2.Range(c.Address)= c.value
End If

@+

lSteph

AB vient de nous annoncer :
Le code suivant (grand merci à Daniel, qui en est l'auteur !) copie les
cellules de la feuille1 vers la feuille 3, puis supprime toutes celles qui
contiennent le mot "ALEA".
Je voudrais le modifier, pour que le résultat des formules qui contiennent le
mot "ALEA" dans la feuille 1 soit collé en feuille 2, aux mêmes emplacements
qu'en feuille 1.
En d'autres termes, si j'ai en feuil1!B67 la formule
=ALEA.ENTRE.BORNES(15;35), et que le résultat est 26, je voudrais trouver en
feuil2!B67 la valeur 26.
Pour toutes les cellules de la feuille 1 qui ne contiennent pas le mot
"ALEA", je voudrais que les formules qu'elles contiennent soient reproduites
aux mêmes emplacements dans la feuille 2.
Désolé : mes explications sont un peu redondantes, j'en conviens. Je cherche
à être clair, au rique d'être lourd...
Une idée ?
AB


Sub test()
Dim Plage As Range, c As Range
ActiveSheet.Cells.Copy Sheets("Feuil3").Range("A1")
For Each c In ActiveSheet.UsedRange
If InStr(1, c.FormulaLocal, "ALEA") > 0 Then
Sheets("Feuil3").Range(c.Address).ClearContents
End If
Next c
End Sub


--
- -

Avatar
AB
Heu, vraiment désolé !!!
Je me bats à longueur de temps sur le forum Word contre les malpolitus, et
j'oublie le minimum de civilité que j'exige des autres !
Ma bourde vient de ce que j'ai commencé par coller le code de Daniel, puis
j'ai tapé le message, et...j'ai oublié...
En tout cas merci de m'avoir répondu quand même.
Testé ta proposition, qui ne fonctionnait pas. Mais ça m'a éclairé.
J'ai modifié le code comme suit et ça marche :
Sub test()
Dim Plage As Range, c As Range
ActiveSheet.Cells.Copy Sheets("Feuil3").Range("A1")
For Each c In ActiveSheet.UsedRange
If InStr(1, c.FormulaLocal, "ALEA") > 0 Then
Sheets("Feuil3").Range(c.Address) = c.Value

End If
Next c
End Sub

Merci encore.
André

"lSteph" a écrit dans le message de news:

Bonjour à toi aussi,

...de rien

dans ta boucle, dans le if

If InStr(1, c.FormulaLocal, "ALEA") > 0 Then
Sheets("Feuil3").Range(c.Address).ClearContents
Feuil2.Range(c.Address)= c.value
End If

@+

lSteph

AB vient de nous annoncer :
Le code suivant (grand merci à Daniel, qui en est l'auteur !) copie les
cellules de la feuille1 vers la feuille 3, puis supprime toutes celles
qui contiennent le mot "ALEA".
Je voudrais le modifier, pour que le résultat des formules qui
contiennent le mot "ALEA" dans la feuille 1 soit collé en feuille 2, aux
mêmes emplacements qu'en feuille 1.
En d'autres termes, si j'ai en feuil1!B67 la formule
=ALEA.ENTRE.BORNES(15;35), et que le résultat est 26, je voudrais trouver
en feuil2!B67 la valeur 26.
Pour toutes les cellules de la feuille 1 qui ne contiennent pas le mot
"ALEA", je voudrais que les formules qu'elles contiennent soient
reproduites aux mêmes emplacements dans la feuille 2.
Désolé : mes explications sont un peu redondantes, j'en conviens. Je
cherche à être clair, au rique d'être lourd...
Une idée ?
AB


Sub test()
Dim Plage As Range, c As Range
ActiveSheet.Cells.Copy Sheets("Feuil3").Range("A1")
For Each c In ActiveSheet.UsedRange
If InStr(1, c.FormulaLocal, "ALEA") > 0 Then
Sheets("Feuil3").Range(c.Address).ClearContents
End If
Next c
End Sub


--
- -





Avatar
lSteph
Heu!
Testé ta proposition, qui ne fonctionnait pas. Mais ça m'a éclairé.
il m'intéresserait de savoir où serait l'erreur quelle ligne, quel

message?

A priori serait ce que tu en as adapté et lorsque celle "qui
fonctionne" vise la feuille3 et non la feuille2
reproduites aux mêmes emplacements dans la feuille 2.
c'est bien ce que tu as demandé



Feuil2.Range(c.Address)= c.value


Sheets("Feuil3").Range(c.Address) = c.Value
c'est a priori différent


Bonne fin de soirée qq il en soit.

Cordialement.

lSteph

AB a exprimé avec précision :
Heu, vraiment désolé !!!
Je me bats à longueur de temps sur le forum Word contre les malpolitus, et
j'oublie le minimum de civilité que j'exige des autres !
Ma bourde vient de ce que j'ai commencé par coller le code de Daniel, puis
j'ai tapé le message, et...j'ai oublié...
En tout cas merci de m'avoir répondu quand même.
Testé ta proposition, qui ne fonctionnait pas. Mais ça m'a éclairé.
J'ai modifié le code comme suit et ça marche :
Sub test()
Dim Plage As Range, c As Range
ActiveSheet.Cells.Copy Sheets("Feuil3").Range("A1")
For Each c In ActiveSheet.UsedRange
If InStr(1, c.FormulaLocal, "ALEA") > 0 Then
Sheets("Feuil3").Range(c.Address) = c.Value

End If
Next c
End Sub

Merci encore.
André

"lSteph" a écrit dans le message de news:

Bonjour à toi aussi,

...de rien

dans ta boucle, dans le if

If InStr(1, c.FormulaLocal, "ALEA") > 0 Then
Sheets("Feuil3").Range(c.Address).ClearContents
Feuil2.Range(c.Address)= c.value
End If

@+

lSteph

AB vient de nous annoncer :
Le code suivant (grand merci à Daniel, qui en est l'auteur !) copie les
cellules de la feuille1 vers la feuille 3, puis supprime toutes celles qui
contiennent le mot "ALEA".
Je voudrais le modifier, pour que le résultat des formules qui contiennent
le mot "ALEA" dans la feuille 1 soit collé en feuille 2, aux mêmes
emplacements qu'en feuille 1.
En d'autres termes, si j'ai en feuil1!B67 la formule
=ALEA.ENTRE.BORNES(15;35), et que le résultat est 26, je voudrais trouver
en feuil2!B67 la valeur 26.
Pour toutes les cellules de la feuille 1 qui ne contiennent pas le mot
"ALEA", je voudrais que les formules qu'elles contiennent soient
reproduites aux mêmes emplacements dans la feuille 2.
Désolé : mes explications sont un peu redondantes, j'en conviens. Je
cherche à être clair, au rique d'être lourd...
Une idée ?
AB


Sub test()
Dim Plage As Range, c As Range
ActiveSheet.Cells.Copy Sheets("Feuil3").Range("A1")
For Each c In ActiveSheet.UsedRange
If InStr(1, c.FormulaLocal, "ALEA") > 0 Then
Sheets("Feuil3").Range(c.Address).ClearContents
End If
Next c
End Sub


-- - -





--
- -



Avatar
AB
Damned ! Mille excuses. Tu as absolument raison. C'est effectivement moi qui
ai mal posé ma question. Je voulais en effet
Sheets("Feuil3").Range(c.Address) = c.Value
et non Sheets("Feuil2").Range(c.Address) = c.Value
Merci encore !
Cordialement,
André

"lSteph" a écrit dans le message de news:

Heu!
Testé ta proposition, qui ne fonctionnait pas. Mais ça m'a éclairé.
il m'intéresserait de savoir où serait l'erreur quelle ligne, quel

message?

A priori serait ce que tu en as adapté et lorsque celle "qui fonctionne"
vise la feuille3 et non la feuille2
reproduites aux mêmes emplacements dans la feuille 2.
c'est bien ce que tu as demandé



Feuil2.Range(c.Address)= c.value


Sheets("Feuil3").Range(c.Address) = c.Value
c'est a priori différent


Bonne fin de soirée qq il en soit.

Cordialement.

lSteph

AB a exprimé avec précision :
Heu, vraiment désolé !!!
Je me bats à longueur de temps sur le forum Word contre les malpolitus,
et j'oublie le minimum de civilité que j'exige des autres !
Ma bourde vient de ce que j'ai commencé par coller le code de Daniel,
puis j'ai tapé le message, et...j'ai oublié...
En tout cas merci de m'avoir répondu quand même.
Testé ta proposition, qui ne fonctionnait pas. Mais ça m'a éclairé.
J'ai modifié le code comme suit et ça marche :
Sub test()
Dim Plage As Range, c As Range
ActiveSheet.Cells.Copy Sheets("Feuil3").Range("A1")
For Each c In ActiveSheet.UsedRange
If InStr(1, c.FormulaLocal, "ALEA") > 0 Then
Sheets("Feuil3").Range(c.Address) = c.Value

End If
Next c
End Sub

Merci encore.
André

"lSteph" a écrit dans le message de news:

Bonjour à toi aussi,

...de rien

dans ta boucle, dans le if

If InStr(1, c.FormulaLocal, "ALEA") > 0 Then
Sheets("Feuil3").Range(c.Address).ClearContents
Feuil2.Range(c.Address)= c.value
End If

@+

lSteph

AB vient de nous annoncer :
Le code suivant (grand merci à Daniel, qui en est l'auteur !) copie les
cellules de la feuille1 vers la feuille 3, puis supprime toutes celles
qui contiennent le mot "ALEA".
Je voudrais le modifier, pour que le résultat des formules qui
contiennent le mot "ALEA" dans la feuille 1 soit collé en feuille 2,
aux mêmes emplacements qu'en feuille 1.
En d'autres termes, si j'ai en feuil1!B67 la formule
=ALEA.ENTRE.BORNES(15;35), et que le résultat est 26, je voudrais
trouver en feuil2!B67 la valeur 26.
Pour toutes les cellules de la feuille 1 qui ne contiennent pas le mot
"ALEA", je voudrais que les formules qu'elles contiennent soient
reproduites aux mêmes emplacements dans la feuille 2.
Désolé : mes explications sont un peu redondantes, j'en conviens. Je
cherche à être clair, au rique d'être lourd...
Une idée ?
AB


Sub test()
Dim Plage As Range, c As Range
ActiveSheet.Cells.Copy Sheets("Feuil3").Range("A1")
For Each c In ActiveSheet.UsedRange
If InStr(1, c.FormulaLocal, "ALEA") > 0 Then
Sheets("Feuil3").Range(c.Address).ClearContents
End If
Next c
End Sub


-- - -





--
- -







Avatar
lSteph
Ok! Bonne journée.

lSteph

Il se trouve que AB a formulé :
Damned ! Mille excuses. Tu as absolument raison. C'est effectivement moi qui
ai mal posé ma question. Je voulais en effet
Sheets("Feuil3").Range(c.Address) = c.Value
et non Sheets("Feuil2").Range(c.Address) = c.Value
Merci encore !
Cordialement,
André

"lSteph" a écrit dans le message de news:

Heu!
Testé ta proposition, qui ne fonctionnait pas. Mais ça m'a éclairé.
il m'intéresserait de savoir où serait l'erreur quelle ligne, quel message?


A priori serait ce que tu en as adapté et lorsque celle "qui fonctionne"
vise la feuille3 et non la feuille2
reproduites aux mêmes emplacements dans la feuille 2.
c'est bien ce que tu as demandé



Feuil2.Range(c.Address)= c.value


Sheets("Feuil3").Range(c.Address) = c.Value
c'est a priori différent


Bonne fin de soirée qq il en soit.

Cordialement.

lSteph

AB a exprimé avec précision :
Heu, vraiment désolé !!!
Je me bats à longueur de temps sur le forum Word contre les malpolitus, et
j'oublie le minimum de civilité que j'exige des autres !
Ma bourde vient de ce que j'ai commencé par coller le code de Daniel, puis
j'ai tapé le message, et...j'ai oublié...
En tout cas merci de m'avoir répondu quand même.
Testé ta proposition, qui ne fonctionnait pas. Mais ça m'a éclairé.
J'ai modifié le code comme suit et ça marche :
Sub test()
Dim Plage As Range, c As Range
ActiveSheet.Cells.Copy Sheets("Feuil3").Range("A1")
For Each c In ActiveSheet.UsedRange
If InStr(1, c.FormulaLocal, "ALEA") > 0 Then
Sheets("Feuil3").Range(c.Address) = c.Value

End If
Next c
End Sub

Merci encore.
André

"lSteph" a écrit dans le message de news:

Bonjour à toi aussi,

...de rien

dans ta boucle, dans le if

If InStr(1, c.FormulaLocal, "ALEA") > 0 Then
Sheets("Feuil3").Range(c.Address).ClearContents
Feuil2.Range(c.Address)= c.value
End If

@+

lSteph

AB vient de nous annoncer :
Le code suivant (grand merci à Daniel, qui en est l'auteur !) copie les
cellules de la feuille1 vers la feuille 3, puis supprime toutes celles
qui contiennent le mot "ALEA".
Je voudrais le modifier, pour que le résultat des formules qui
contiennent le mot "ALEA" dans la feuille 1 soit collé en feuille 2, aux
mêmes emplacements qu'en feuille 1.
En d'autres termes, si j'ai en feuil1!B67 la formule
=ALEA.ENTRE.BORNES(15;35), et que le résultat est 26, je voudrais
trouver en feuil2!B67 la valeur 26.
Pour toutes les cellules de la feuille 1 qui ne contiennent pas le mot
"ALEA", je voudrais que les formules qu'elles contiennent soient
reproduites aux mêmes emplacements dans la feuille 2.
Désolé : mes explications sont un peu redondantes, j'en conviens. Je
cherche à être clair, au rique d'être lourd...
Une idée ?
AB


Sub test()
Dim Plage As Range, c As Range
ActiveSheet.Cells.Copy Sheets("Feuil3").Range("A1")
For Each c In ActiveSheet.UsedRange
If InStr(1, c.FormulaLocal, "ALEA") > 0 Then
Sheets("Feuil3").Range(c.Address).ClearContents
End If
Next c
End Sub


-- - -





-- - -





--
- -