dans un tableau n ° 1 avec plusieurs colonnes , 9 en tout, je voudrais dés
que je remplie ou autre la dernière cellule d une ligne que celle ci soit
immédiatement recopier dans un autre tableau sur la feuille suivante et
supprimer dans le tableau n° 1
merci beaucoup
Ps: après qql recherche j ai trouver une macro pous sélectionner les
cellules vides dans cette colonnes mais je n arrive pas a les copier a la
suite d un tableau existant.
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
Père Brossollette
Salut
à mettre dans le module de la feuile concernée, pour une recopie Feuil3 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 11 Then If Application.CountA(Range("a" & Target.Row & ":i" & Target.Row)) = 9 Then With Sheets("Feuil3") ligne = .[a65536].End(xlUp).Row + 1 .Range("a" & ligne & ":i" & ligne).Value = Range("a" & Target.Row & ":i" & Target.Row).Value End With Range("a" & Target.Row & ":i" & Target.Row).ClearContents End If End If End Sub a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"regis.gintz" a écrit dans le message de news:
bonsoir a tous
wind 98 ; Excel 2000 débutant
dans un tableau n ° 1 avec plusieurs colonnes , 9 en tout, je voudrais dés
que je remplie ou autre la dernière cellule d une ligne que celle ci soit
immédiatement recopier dans un autre tableau sur la feuille suivante et supprimer dans le tableau n° 1
merci beaucoup
Ps: après qql recherche j ai trouver une macro pous sélectionner les cellules vides dans cette colonnes mais je n arrive pas a les copier a la suite d un tableau existant.
Salut
à mettre dans le module de la feuile concernée, pour une recopie Feuil3
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 11 Then
If Application.CountA(Range("a" & Target.Row & ":i" & Target.Row)) = 9
Then
With Sheets("Feuil3")
ligne = .[a65536].End(xlUp).Row + 1
.Range("a" & ligne & ":i" & ligne).Value = Range("a" & Target.Row &
":i" & Target.Row).Value
End With
Range("a" & Target.Row & ":i" & Target.Row).ClearContents
End If
End If
End Sub
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"regis.gintz" <regis.gintz@wanadoo.fr> a écrit dans le message de
news:OD2KsFh2DHA.1700@TK2MSFTNGP12.phx.gbl...
bonsoir a tous
wind 98 ; Excel 2000 débutant
dans un tableau n ° 1 avec plusieurs colonnes , 9 en tout, je voudrais
dés
que je remplie ou autre la dernière cellule d une ligne que celle ci
soit
immédiatement recopier dans un autre tableau sur la feuille suivante et
supprimer dans le tableau n° 1
merci beaucoup
Ps: après qql recherche j ai trouver une macro pous sélectionner les
cellules vides dans cette colonnes mais je n arrive pas a les copier a la
suite d un tableau existant.
à mettre dans le module de la feuile concernée, pour une recopie Feuil3 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 11 Then If Application.CountA(Range("a" & Target.Row & ":i" & Target.Row)) = 9 Then With Sheets("Feuil3") ligne = .[a65536].End(xlUp).Row + 1 .Range("a" & ligne & ":i" & ligne).Value = Range("a" & Target.Row & ":i" & Target.Row).Value End With Range("a" & Target.Row & ":i" & Target.Row).ClearContents End If End If End Sub a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"regis.gintz" a écrit dans le message de news:
bonsoir a tous
wind 98 ; Excel 2000 débutant
dans un tableau n ° 1 avec plusieurs colonnes , 9 en tout, je voudrais dés
que je remplie ou autre la dernière cellule d une ligne que celle ci soit
immédiatement recopier dans un autre tableau sur la feuille suivante et supprimer dans le tableau n° 1
merci beaucoup
Ps: après qql recherche j ai trouver une macro pous sélectionner les cellules vides dans cette colonnes mais je n arrive pas a les copier a la suite d un tableau existant.
regis.gintz
merci de m avoir répondu rapidement
sa marche mais il faudrait que la ligne s efface seulement qu en je modifie la dernière cellule(je rempli le tableau au fur et a mesure) Et il faudrait également supprimer toute la ligne dans le premier tableau afin qu il ni est pas de ligne vides dans le tableau merci
merci de m avoir répondu rapidement
sa marche mais il faudrait que la ligne s efface seulement qu en je modifie
la dernière cellule(je rempli le tableau au fur et a mesure)
Et il faudrait également supprimer toute la ligne dans le premier tableau
afin qu il ni est pas de ligne vides dans le tableau
merci
sa marche mais il faudrait que la ligne s efface seulement qu en je modifie la dernière cellule(je rempli le tableau au fur et a mesure) Et il faudrait également supprimer toute la ligne dans le premier tableau afin qu il ni est pas de ligne vides dans le tableau merci
ru-th
ok, ok
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 9 Then If Application.CountA(Range("a" & Target.Row & ":i" & Target.Row)) = 9 Then With Sheets("Feuil3") ligne = .[a65536].End(xlUp).Row + 1 .Range("a" & ligne & ":i" & ligne).Value = Range("a" & Target.Row & ":i" & Target.Row).Value End With rows(Target.Row).delete End If End If End Sub
-- a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"regis.gintz" a écrit dans le message de news:
merci de m avoir répondu rapidement
sa marche mais il faudrait que la ligne s efface seulement qu en je modifie
la dernière cellule(je rempli le tableau au fur et a mesure) Et il faudrait également supprimer toute la ligne dans le premier tableau afin qu il ni est pas de ligne vides dans le tableau merci
ok, ok
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 Then
If Application.CountA(Range("a" & Target.Row & ":i" & Target.Row)) = 9
Then
With Sheets("Feuil3")
ligne = .[a65536].End(xlUp).Row + 1
.Range("a" & ligne & ":i" & ligne).Value = Range("a" & Target.Row &
":i" & Target.Row).Value
End With
rows(Target.Row).delete
End If
End If
End Sub
--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"regis.gintz" <regis.gintz@wanadoo.fr> a écrit dans le message de
news:u5XdEYi2DHA.2620@TK2MSFTNGP09.phx.gbl...
merci de m avoir répondu rapidement
sa marche mais il faudrait que la ligne s efface seulement qu en je
modifie
la dernière cellule(je rempli le tableau au fur et a mesure)
Et il faudrait également supprimer toute la ligne dans le premier tableau
afin qu il ni est pas de ligne vides dans le tableau
merci
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 9 Then If Application.CountA(Range("a" & Target.Row & ":i" & Target.Row)) = 9 Then With Sheets("Feuil3") ligne = .[a65536].End(xlUp).Row + 1 .Range("a" & ligne & ":i" & ligne).Value = Range("a" & Target.Row & ":i" & Target.Row).Value End With rows(Target.Row).delete End If End If End Sub
-- a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"regis.gintz" a écrit dans le message de news:
merci de m avoir répondu rapidement
sa marche mais il faudrait que la ligne s efface seulement qu en je modifie
la dernière cellule(je rempli le tableau au fur et a mesure) Et il faudrait également supprimer toute la ligne dans le premier tableau afin qu il ni est pas de ligne vides dans le tableau merci
