pb d'insertion de texteRésolu

Question

Slt,
j'ai un autre pb avec vba sur excel.
je voudrais placer dans une cellule d'une ligne que j'ai inserr&#233; conditionnellement, le texte &#233;crit dans une autre cellule.
Par exemple, j'ai inserr&#233; la ligne 3, et je voudrais quand cellule C3, soit &#233;crit ce qui est dans B4. 
Tout &#231;a par un code vba parce que cette manip va se r&#233;p&#233;ter des centaines de fois...
Si quelqu'un avait une id&#233;e parce que tout ce que j'essaie plante...

Merci.

Manu

jpleroisse · Accepted Answer

Est-ce la r&#233;p&#233;tion ce fait dans la m&#234;me feuille ? si oui
Dans ce cas tu vas dans l'&#233;diteur VBA tu DBlClick sur Feuil1(par exp). et dans la fen&#234;tre code tu place

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Range("C3").Value = Range("B4").Value
End Sub

Chaque fois que tu feras le click du bouton droit la valeur de la cellule B4 s'inscrira dans C3
Si cela ne correspond pas &#224; ce que tu cherches, laisse un mot d'explication.

jpleroisse

cs_emmanuel15 · Answer

En effet c'est sur la m&#234;me feuille et j'dis pas ca marche.
Thanks.
Mais le truc c'est que s'il faut que je click droit a chaque fois que je veux faire cette manip, je vais en avoir pour un  bout de temps! En plus le pb c'est que la cellule dans laquelle je voudrais que s'inscrive le texte d'une autre cellule, appara&#238;t conditionnellemnt, donc c'est jamais au meme endroit.
Ce qui m'aiderai &#224; fond c'est le meme code mais int&#233;grer dans ma formule d'insertion de ligne que voici:

sub insertion ()
Columns("A:G").Select
For Each cel In Range("B1:B" & Range("B65536").End(xlDown).Row)
If cel.Value = "" Then GoTo suite
If cel.Value <> cel.Offset(1, 0).Value Then
cel.Offset(1, 0).Select
Selection.EntireRow.insert
End If
suite:
Next cel
end sub

Dans une cellule de la ligne ins&#233;rr&#233;e, il faut que s'inscrive le texte situ&#233; dans la cellule en bas &#224; gauche (d&#233;placement d'un vers la gauche et d'un vers le bas).
Voila, si je suis pas assez pr&#233;cis, h&#233;sites pas &#224;  me poser des questions.

Merci d'avance.
@+ 
Emmanuel

jpleroisse · Answer

Option Explicit
Private Const NumCol = 3


Sub insertion()
Dim Cell As Range, sr As String
Columns("A:G").Select
For Each Cell In Range("B1:B" & Range("B65536").End(xlDown).Row)
If Cell.Value = "" Then GoTo suite
If Cell.Value <> Cell.Offset(1, 0).Value Then
sr = Cell.Offset(1, -1).Value
Cell.Offset(1, 0).Select
Selection.EntireRow.Insert
Cells(NumCol).Offset(2, 0).Value = sr
End If
suite:
Next Cell
End Sub

jpleroisse

cs_emmanuel15 · Answer

Tks,
peux tu me dire o&#249; je dois placer : 
Option Explicit
Private Const NumCol = 3

STP.

Emmanuel

jpleroisse · Answer

Option ExplicitPrivate Const NumCol 3, se place tout en haut de la fen&#234;tre de code, avant toutes les autres formules. Options Explicit OBLIGE &#224; d&#233;clarer toutes les variables ce qui &#233;vite pas mal d'erreurs dans les codes. Par exemple si tu &#233;crit s 3, tu vas avoir une erreur signal&#233;e par Variable non d&#233;clar&#233;es et la phrase sera en jaune. Ce qui oblige a faire avant Dim s As Integer.
(j'&#232;sp&#232;re que mon explication est assez claire! Ah oui, la constante NumCol =3 d&#233;signe la troisi&#232;me colonne, c.a.d  C)

jpleroisse

cs_emmanuel15 · Answer

Merci,
le programme tourne sans erreurs mais rien ne s'affiche dans la cellule de la ligne inserr&#233;e que je veux...
Dsl mais je suis vraiment une quiche en vba et je pense que je me suis gourr&#233; qq part!
Si ca te prend pas la t&#234;te je peux t'envoyer le fichier (si oui, je sais pas comment faire...) sinon tant pis et encore merci pour ton aide.
Je vais essayer de bidouiller un peu ton code en changeant des num&#233;ro de cellules dans le code, on va voir. 

@+

Emmanuel

jpleroisse · Answer

Envoie-le moi par E-mail
jpleroisse@hotmail.com

cs_emmanuel15 · Answer

Je te les envoy&#233;.
Tu l'as re&#231;u?

Emmanuel

Pb d'insertion de texte

8 réponses

Discussions similaires