COPIE AUTOMATIQUE

Le
GRINCHEUX
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 etcetc..

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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Patrick BASTARD
Le #4910101
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


JB
Le #4910091
Bonsoir,

Range("A2",
[A65000].End(xlUp)).SpecialCells(xlCellTypeBlanks).FormulaR1C1 =
"=R[-1]C"
Range("A2", [A65000].End(xlUp)).Value = Range("A2",
[A65000].End(xlUp)).Value

JB

On 22 juin, 19:03, "GRINCHEUX"
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
Le #4909991
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
Publicité
Poster une réponse
Anonyme