AFFECTER UNE MACRO AVEC CONDITIONS
Résolu
virgile84
Messages postés
21
Statut
Membre
-
virgile84 Messages postés 21 Statut Membre -
virgile84 Messages postés 21 Statut Membre -
Bonjour,
Voici une macro que j'ai faite
Sub AJOUTERAUPANNIER()
'
' AJOUTERAUPANNIER Macro
'
'
Range("A25").Select
Selection.Copy
Sheets("Facture n∞0").Select
Range("B20").Select
ActiveSheet.Paste
End Sub
ce que je voudrais c'est que, si la cellule "A20" est déjà occupée par une valeur
coller en "B22",si "B22" est déjà occupée par une valeur coller en "B23"
ainsi de suite jusqu'à "B36"
si quelqu'un peux m'aider à résoudre mon problème
MERCI
Voici une macro que j'ai faite
Sub AJOUTERAUPANNIER()
'
' AJOUTERAUPANNIER Macro
'
'
Range("A25").Select
Selection.Copy
Sheets("Facture n∞0").Select
Range("B20").Select
ActiveSheet.Paste
End Sub
ce que je voudrais c'est que, si la cellule "A20" est déjà occupée par une valeur
coller en "B22",si "B22" est déjà occupée par une valeur coller en "B23"
ainsi de suite jusqu'à "B36"
si quelqu'un peux m'aider à résoudre mon problème
MERCI
Configuration: Mac OS X Firefox 3.0.8
3 réponses
-
Salut,
Peut être quelque chose comme ceci (à adapter avec tes noms de feuilles):
Dim i As Integer
Sheets("Feuil1").Select
ActiveSheet.Range("A25").Select
Selection.Copy
Sheets("Feuil2").Select
For i = 20 To 36
If ActiveSheet.Range("B" & i) = "" Then
ActiveSheet.Range("B" & i).Select
ActiveSheet.Paste
Exit Sub
End If
Next i -
-
Bonjour pijaku
J'ai testé ta macro et j'ai juste enlever le début et ça marche à merveille
merci encore tu m'as enlevé une épine du pied
voici la modification à partager
Sub AUPANNIER()
'
' AUPANNIER Macro
'
'
Dim i As Integer
ActiveSheet.Range("A25").Select
Selection.Copy
Sheets("Facture n°0").Select
For i = 20 To 36
If ActiveSheet.Range("B" & i) = "" Then
ActiveSheet.Range("B" & i).Select
ActiveSheet.Paste
Exit Sub
End If
Next i
End Sub
