BONJOUR.
Je vais faire ma question sur la colonne A1.
J'ai "Albanie" en A2.
Entre A2 et A6 des cases vides.
J'ai " Allemagne " en A7.
Entre A7 et A11 des cases vides.
J'ai " France " en A12.
Entre A12 et A22 des cases vides.
J'ai etc...etc.....
Et ceci sur 10 000 lignes
Existe t-il une commande pour copier simultannément :
entre A2 et A6 "Albanie"
entre A7 et A11 " Allemagne "
entre A12 et A22 " France "
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
Patrick BASTARD
Bonjour, *GRINCHEUX*
Sub RecopieVersLeBas() 'D'après JB MPFE 'recopie les infos dans A, changement à chaque nouvelle valeur
Dim n As Integer 'maxi : - 32768 à + 32767 Dim i As Integer With Application .ScreenUpdating = False .Calculation = xlManual End With n = [a65000].End(xlUp).Row Range("a1").Select i = 0 Do While i < n If ActiveCell = "" Then ActiveCell = ActiveCell.Offset(-1, 0) ActiveCell.Offset(1, 0).Select i = i + 1 Loop Application.Calculation = xlAutomatic Calculate Application.ScreenUpdating = True End Sub
fonctionne chez moi.
-- Bien amicordialement, P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
BONJOUR. Je vais faire ma question sur la colonne A1. J'ai "Albanie" en A2. Entre A2 et A6 des cases vides. J'ai " Allemagne " en A7. Entre A7 et A11 des cases vides. J'ai " France " en A12. Entre A12 et A22 des cases vides.
J'ai etc...etc.....
Et ceci sur 10 000 lignes
Existe t-il une commande pour copier simultannément : entre A2 et A6 "Albanie" entre A7 et A11 " Allemagne " entre A12 et A22 " France "
MERCI DE VOTRE REPONSE
Bonjour, *GRINCHEUX*
Sub RecopieVersLeBas() 'D'après JB MPFE
'recopie les infos dans A, changement à chaque nouvelle valeur
Dim n As Integer 'maxi : - 32768 à + 32767
Dim i As Integer
With Application
.ScreenUpdating = False
.Calculation = xlManual
End With
n = [a65000].End(xlUp).Row
Range("a1").Select
i = 0
Do While i < n
If ActiveCell = "" Then ActiveCell = ActiveCell.Offset(-1, 0)
ActiveCell.Offset(1, 0).Select
i = i + 1
Loop
Application.Calculation = xlAutomatic
Calculate
Application.ScreenUpdating = True
End Sub
fonctionne chez moi.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
BONJOUR.
Je vais faire ma question sur la colonne A1.
J'ai "Albanie" en A2.
Entre A2 et A6 des cases vides.
J'ai " Allemagne " en A7.
Entre A7 et A11 des cases vides.
J'ai " France " en A12.
Entre A12 et A22 des cases vides.
J'ai etc...etc.....
Et ceci sur 10 000 lignes
Existe t-il une commande pour copier simultannément :
entre A2 et A6 "Albanie"
entre A7 et A11 " Allemagne "
entre A12 et A22 " France "
Sub RecopieVersLeBas() 'D'après JB MPFE 'recopie les infos dans A, changement à chaque nouvelle valeur
Dim n As Integer 'maxi : - 32768 à + 32767 Dim i As Integer With Application .ScreenUpdating = False .Calculation = xlManual End With n = [a65000].End(xlUp).Row Range("a1").Select i = 0 Do While i < n If ActiveCell = "" Then ActiveCell = ActiveCell.Offset(-1, 0) ActiveCell.Offset(1, 0).Select i = i + 1 Loop Application.Calculation = xlAutomatic Calculate Application.ScreenUpdating = True End Sub
fonctionne chez moi.
-- Bien amicordialement, P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
BONJOUR. Je vais faire ma question sur la colonne A1. J'ai "Albanie" en A2. Entre A2 et A6 des cases vides. J'ai " Allemagne " en A7. Entre A7 et A11 des cases vides. J'ai " France " en A12. Entre A12 et A22 des cases vides.
J'ai etc...etc.....
Et ceci sur 10 000 lignes
Existe t-il une commande pour copier simultannément : entre A2 et A6 "Albanie" entre A7 et A11 " Allemagne " entre A12 et A22 " France "
BONJOUR. Je vais faire ma question sur la colonne A1. J'ai "Albanie" en A2. Entre A2 et A6 des cases vides. J'ai " Allemagne " en A7. Entre A7 et A11 des cases vides. J'ai " France " en A12. Entre A12 et A22 des cases vides.
J'ai etc...etc.....
Et ceci sur 10 000 lignes
Existe t-il une commande pour copier simultannément : entre A2 et A6 "Albanie" entre A7 et A11 " Allemagne " entre A12 et A22 " France "
On 22 juin, 19:03, "GRINCHEUX" <bernard.ma...@wanadoo.fr> wrote:
BONJOUR.
Je vais faire ma question sur la colonne A1.
J'ai "Albanie" en A2.
Entre A2 et A6 des cases vides.
J'ai " Allemagne " en A7.
Entre A7 et A11 des cases vides.
J'ai " France " en A12.
Entre A12 et A22 des cases vides.
J'ai etc...etc.....
Et ceci sur 10 000 lignes
Existe t-il une commande pour copier simultannément :
entre A2 et A6 "Albanie"
entre A7 et A11 " Allemagne "
entre A12 et A22 " France "
BONJOUR. Je vais faire ma question sur la colonne A1. J'ai "Albanie" en A2. Entre A2 et A6 des cases vides. J'ai " Allemagne " en A7. Entre A7 et A11 des cases vides. J'ai " France " en A12. Entre A12 et A22 des cases vides.
J'ai etc...etc.....
Et ceci sur 10 000 lignes
Existe t-il une commande pour copier simultannément : entre A2 et A6 "Albanie" entre A7 et A11 " Allemagne " entre A12 et A22 " France "
MERCI DE VOTRE REPONSE
AV
Un minimum de recherche t'aurais amené à un fil de ce jour (22/06/2007) 14:57 : "macro recopie cellule precedente" C'est quand même pas si vieux que ça....
AV
Un minimum de recherche t'aurais amené à un fil de ce jour (22/06/2007) 14:57 :
"macro recopie cellule precedente"
C'est quand même pas si vieux que ça....
Un minimum de recherche t'aurais amené à un fil de ce jour (22/06/2007) 14:57 : "macro recopie cellule precedente" C'est quand même pas si vieux que ça....